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INTT50DUCTI0N 


IPLIB is a collection of HP FORTRAN 77 subroutines ond functions that facilitate 
the use of a COMTAL image processing system driven by an HP 1000 computer. These 
subprograms are based on uorK by Nettie D. Faulcon and James H. Monteith of the 
Acoustics and Vibration Instr^jmentat ion Section at NASA Langley Research Center, 
and i^re put into their present form by Keith Miller of the College of Uilliam and 
Mary's computer science department while he was a summer fellow in the ASEE/tlASA 
program. 

IPLIB uses an HP 1000 driver, DVR41, which directs all communications between the 
HP 1000 and the COMTAL Vision One/20 system. DVR41 was written by M. Brown of Coulter 
Computer Corporal ion, revised by R.UI. Bagdazian of Hughes Aircraft Corporation, and 
documented by James Monteith and Keith Miller. 

This user's manual is intended for programmers who want to use the HP 1000 to drive 
the CdtTTAL image processing system. It is assumed that the programmer Knows HP 1000 
FORTRAN 77. or at least one FORTRAN dialect. It is also assumed that the programmer 
has some familiarity with the COMTAL Vision One/20 system. 

The manual is divided into six sections: 

1. SUBPROGRAM HANDLING: 

This section tells how to load and modifiy the subprograms in IPLIB as well as 
how to add subprograms to the library. 

2 . ALPHABETIC CATALOG: 

All the subprograms are listed in alphabetic order with a few words that suggest 
the purpose of each. Test programs are listed in alphabetic order also. 

3. CROSS REFERENCE FILE: 

Each subprogram and test program is listed along with the subprograms it calls. 

4. SUBPROGRAM SOURCE CODE: 

The source code for each subprogram is given in its entirety. The code for all 
subprograms follows a documentation outline which was designed to make each 
subprogram understandable without reference to any other code. 

5. TEST PROGRAM SOURCE CODE: 

The source code for some programs used in the unit testing of the IPLIB sub- 
-programs are given. These lest programs are not well documented, but they 
should, be easily understood, when used in conjunction with the documentation 





of the subprograms they test. 


6. HP DRIVER SOURCE CODE: 

The assembler code of DVR41. the HP driver for the COMTPlL image processing 
system^ is listed in its entirety. 

The following references are suggested for programmers working with IPLIB: 

"FORTRAN 77 Reference Manual (RTE-6AT1 and RTE-A HP 1000 Computer System) 
Hewlett-Packord Company, 1981. 

"Handbook on COMTAL's Image Processing System", Nettie D. Faulcon, NASA TM BSSTl, 
July 1983. 

"Vision One/20 User's Manual", COMTAL Corporation, 1982. 


SUBPROGRAM HANDLING 


LOADING SUBPROGRAMS 

Ulhen loading a program that calls IPLIB subroutines and function ( "subprograms") , 
enter : 

SEA ?iIPLIB::21 

as part of the loading sequence. For example, the following loading sequence is 
used to load a program TNOTE which calls a number of IPLIB subprograms: 

LOADR 

RE,%TN0TE 

SEA,?iIPLIB 

SEA 

DI 

EN 


ADDING SUBPROGRAMS 

In order to add subprograms to the 1 ibrary, 4 files must be chanqed: FILES::21, 
XREF::21, MAKELIB: :21, and.XiPLIB: :21 . 

FILES: :21 is an alphabetized, annotated list of the IPLIB subprograms and test 
programs for those subprograms. Using the text editor, add the name of the sub- 
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program in alphabetic order along with a short description of its effect, ftlso, 
add the name of the unit testing program to the second list in FILES: :21. 

XREF::21 is a list of each subprogram and unit testing program along with the 
subprograms it calls. Pidd the new subprogram and testing program to the list# 
using the same format that is already there. 

MftKLIB;:21 is a list of the load modules of all the subprograms and test programs 
in IPLIB. This list is in no special order# so just add the new subprogram's load 
module to the list. The standard convention is to use % as the first character in 
load modules. 

IPLIB holds all the load modules in the image processing library. If JiNEU is the 
name of the load -module to be included in IPLIB, the fol lowing sequence accomplishes 
the addition: < HP prompts given 4Ji thin parentheses. ) "<CR>" signifies entering a 

carriage return. 

CHARGE 

(ENTER DESTINATION NAMR) %IPLIB<CR> 

(ENTER COmAND NAMR) KCR> 

(ENTER NAMRl ?iIPLIB<CR> 

(ENTER NAMR) ?{NEU<CR> 

(ENTER NAMR) /E<CR> 


CHANGING SUBPROGRAMS 

Modified programs must be tested before being changed in the library. Changes to 
parameters are not allowed: if such a serious modification is necessary# a NEU sub- 
program should be written, and added with a slightly different name. (See above for 
adding a subprogram to IPLIBl. 

If a subprogram is modified, the new source code must replace the old code. If 
necessary, the explanation in FILES: :21 must be changed. If o different set of 
subprograms are called, KREF::21 must be changed. In order to replace the old 
load module in %IPLIB with the modified version, enter the following sequence: 

(HP prompts given within parenthesis.) 

OMERGE 

(ENTER DESTINATION NAMR) ?iIPLIB 
(ENTER COMMAND NAMR) MAKE IB 



IPLIB CfiTftLOG 


Unless 

ftDDI2 

ftDDIfl 

PUFPS 

CLFPS 

CLRGR 

CLRIM 

CMMN2 

CMWD 

COUNT : 
PELftY ; 
PIG IT : 
PSPBU ; 
PSPCL : 
PSPGR : 
PSPVP ; 
HILO : 
HISTO : 

I COPY ; 
ICPY2 : 
MERGE : 
NORML : 

N0TE2 : 

NOTES : 

PfilNT. : 
PROFL : 
RANGE : 
RPGLH : 
RDGPT : 
RDIL2 : 
RDILN : 
RDIPT : 
RPIRC : 
RPLUT : 
RDPSLI : 
RPTAB ; 


otherwise stoted# these files contain subrout i 


nes. 


odds 2 images, and requires a scaling factor (p. 11 ). 

adds 2 images, no scaling factor (p. 15),.- 

transfers a monochrome image to COMTAL from disK (p. 19), 

transfers xi color image to COMTAL from disk (p. 22), 

clears a COMTAL graphics plane (p, 26). 

clears a monochrome COMTAL image (p. 28). 

1 ° constant string from HP to COMTAL (p. 30). 

tcTomL™? sir" “ 

compiles the pixel count for each of the possible values. 0 - 255 -<p. 3S) . 

puts HP in a busy wait for number of seconds designated (p. 39). 

function that takes 0-9 integer input and returns '0' - ' 9 ' (p 41 ) 

displays a monochrome COMTAL image (p. 43 ). 

displays a color COMTAL imoge (p. 45 ). 

displays a graphic plane to the COMTAL monitor (p. 48). 

displays the COMTAL image (5) set to the video camera (p. 50). 

scans a monochrome image and returns the high and low pixel viilues Cp. 52) 

isplays a scaled histogram of the designated image on the COMTAL 
monitor (p. 54). 

copies one monochrome COMTAL image to another (using CMMND) (p. 57 ). 

copies one monochrome COMTAL image to another (using RDILN & URILN) (p. 60) 

merges two bytes into one byte (all arguments ore INTEGER) (p. 63). 

finds lowest pixel value in an image, then subtracts that value 

from all pixels in that image; used to get light table variations (p. 65) 

wri>tes a line of characters into a graphics plane with a given 

color and size at a location; takes o constant string argument (p. 67). 

writes a line of characters into a graphics plane with a given 

color and size at a location; takes a character array and length (p 72). 

interactive "painting" of square patches on COMTAL image (p. 76) 

gives HP access to the COMTAL profiling capabilities (p. 80). 

logical function that determines if 1 st argument is within 2 nd & 3 rd (p 83) 

reads one horizontal line of a COMTAL graphics plane (p, 84). P - 

reads one point from a COMiAL graphics plane (p. 86 ) 

reads one horizontal line of COMTAL pixels; 1 p Ixel /Inteoer returned (p 

reads one horizontal line of COMTAL pixels; 2 pixels/integer returned (p. 

reads one pixel from a COMTAL monochrome image (p, 94 ). 
reads a rectangle of pixels from a COMTAL monochrome image (p. 97 ) 
reads the contents of a COMTAL look-up table (p. 101 ). 

reads the cohtents of a COfTTAL pseudo-color table (p, 104). 

reads the COMTAL Image/Graphics Table (p. 106). 


89) 
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RDTflR : 
SETV : 
"SPLIT : 
SPRED ; 

SUB 12 : 
SUBIM : 
THRSH : 

TSTIl : 

TV2C4 : 
TV2Ch : 
WAIT : 
UIPGR ; 
URGLN : 
IJRGPT : 
URIL2 : 

URILN : 

LJRIPT : 
UR IRC : 

URLUT : 
URPSLI : 
URTAR : 


reads the COMTAL cursor location (p. 109). 

sets a COMTAL image 5 - 9 to the video camera (p. 1113, 

splits an integer into two bytes* both bytes stored in new integers (p. 114). 

finds lou and high pixel values in an image* and does a linear 

stretch on all pixel values to expand the range to 0 - 255 (p. 116). 

subtracts tuo images with an offset of 128; differences <0 set to.B (p. 119). 

subtracts tuo images with no offset; differences <0 set to 0 (p. 123). 

sets pixels in output image to blacK(0) or uhite(255) depending 

on the corresponding pixel in input image and a threshold value (p. 126). 

generates "TeST Image 1"* increasing pixel values right and down; 

display appears as a darkening slash across the screen (p. 129). 

digitizes 4 images from TV camera and averages them into one image (p. 131). 

digitizes an image from TV camera into a COMTAL memory plane (p. 133). 

halts HP processing until the HP <CR> is entered (p. 136). 

removes a graphics -pltine ff^m the displtjy (p. 137). 

unites a horizontal line of graphics bits to a COMTAL graphics plane (p. T39)-. 
unites one graphics bit to a COMTAL graphics plane (p. 141). 
unites a horizontal line of pixels to a COMTAL image memory; one 
pixel value ■/ integer in the buffer Cp. 144). 

writes a horizontal line of pixels to a COMTAL itrioge memory; two 

pixel values / integer in the buffer (p. 147). 

writes one pixel value to a COMTAL image memory (p. 150). 

urUps an array of integers to a rectangle of a COMTAL image memory; 

one pixel value / integer in the buffer (p. 153). 

writes a look-up table to the COMTAL (p. 157). 

writes a pseudo-color table to the COMTAL (p. 159). 

writes a target (cursor) location to the COMTAL (p. 161). 


The files that follow are test programs for the subprograms above. 


TADD2 

TADDI 

TCLR 

TCLRG 

TCLR! 

TCMM2 

TCMMN 

TCl'iT 

TCGN3 

TCGPY 

TDIGI 

TDSP 


THIST 

TKORM 

TNOTE 


program 

that 

tests 

program 

that 

t est s 

program 

that 

tests 

program 

that 

tests 

program 

that 

t est s 

program 

that 

sends 

program 

t hat 

sends 

program 

that 

t est s 

program 

t hat 

t est s 

program 

that 

t est s 

program 

that 

t est s 

program 

that 

t est s 

CoLor" ,( 

:p. 174) 

program 

that 

tests 

program 

that 

tests 

program 

that 

tests 


ADDI2 (p.l63). 

ADDIM (p. 164). 

DSPCL* "DiSPlay CoLor" (p. 165). 

CLRGR* "CLeaR GRaphics" (p. 166). 

CLRIM, "CLear IMnge" (p. 167). 

all possible single bytes to COMTAL 1 at a time (p. 168), 
COMTAL commands •■■’ia the HP keyboard; tests CrtlND (p. 169). 
subroutine COUNT (p. 170). 

the string conent enat ion facility in HP FORTRAN 77 (p. 171) 
ICOPY* "Image COPY" (p. 172). 
the function DIGIT (p. 173). 

DSPBLJ* "DiSPlay Black 8. Uhite" and DSPCL* "DiSPlay 

HIST* "HISTogram" (p. 175). 

NORML* "NORMaLize" (p. 176). 

N0TE2 and NOTES ( p. 177). 



tPNT 
TPftOF 
Tt?ANG 
tRIiTft 
TSfTV 
IBPkt) t 
tSU 61 J 
TTHRS t 

rrsti 

TtV2C 
tWAlT 
tUlRE 
tXFCS t 

TXGLN : 

TX6PT : 

TXILN : 

TXiPT : 

TXIRC : 

TXLUT ! 

TXPSLI : 

TXTAR : 


program that tQsts PAINT (p. 178). 
program that tests PROFL, "PROFiling" (p. 179). 
program that tests the function "RANGE" (p. 180). 
program that tests RDTAR, "Real) TARget " (p. 181). 
program that tests SETV, "SET Video camera" (p. 182). 
program that tests SPRED, "SPREaD pixel values" (p. 183). 
program that tests SUBIM and SUBI2 (p.l84). ■ 
program that tests THRSH, "THReSHolding" (p.lBS). 
program that tests TSTIl, "TeST Image 1" (p. 186). 

program that tests TV2CM and TV2C4, "TV to CoMtal " transfers (p. 187). 

program that tests UAIT (p. 188). 

program that tests UIPGR and DSPGR <p. 189). 

program that tests BUFDS and CLFDS. "Black 8. White From DiSk" and 

"CoLor From BiSk" (p. 190). 
program that tests iJRGLN and RDGLN, 

"RcaD Graphics LiNe" (p. 191). 
program that tests URGPT and RDGPT, 

"ReaD Graphics PoinT" (p. 192). 
program that tests URILN and RDILN, 

"ReaD Image LiNe" (p. 193). 
program that tests URIPT and RDIPT, 

"ReaD Image PoinT" (p, 194). 

program that tests URIRC and RDIRC. 

"ReaD Image ReCtangle" (p. 195). 
program that tests URLUT and RDLUT. 

"ReaD Look Up Table" (p. 196). 
program that tests URPSU and RDPSU. 

"ReaD PSeUdo-color table" (p. ,19i^) . 
program that tests LIRTAR and RDTAR, 


"URite Graphics LiNe" and 

"URite Graphics PoinT" and 

"URite Image LiNe" end 

"URite Image PoinT" and 

"URite Image ReCtangle" and 

"URite Look Up Table" and 

"URite PSeUdo-color table" and 

"URite TARget" and "ReaD TARget* (p. 199). 


CROSS-REFEREI^CE FILE 


To use this file to find out which procedures or programs call 
"FRED", just use the text editor to locate all the lines that 
of those lines is the line "FRED calls:". The remaining lines 
procedures call FRED. 


a certain procedure 
con tain FRED . One 
identify i..jhich 


HP FORTRAN?? intrinsic functions 
wi t h a >K. 


".wnich need not be loaded manually) are preceeded 


ADD 1 2 calls: 

DIGIT CliMND RANGE 
ADDIM calls: 
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CMMND DIGIT RftNGE 
BUFDS calls: 

CnriND DIGIT OPEN RftNGE REflDF URILN 
CLFDS calls: 

CMMND DIGIT OPEN RftNGE REftDF URILN 
CLRGR calls: 

CMMND DIGIT RftNGE 
CLRIM calls: 

CMMND DIGIT RftNGE 
CMMN2 calls: 

>i<LEN 

CMMND calls no other procedures. 

COUNT calls: 

RANGE RDIL2 

DELAY cal Is no other procedures. 


DIGIT 

calls: 




RANGE 





DSPBU 

calls: 




RANGE 





DSPCL 

cal Is: 




CMMND 

DIGIT 

RftNGE 



DSPGR 

calls: 




CMMN2 

DIGIT 

RANGE 



DSP^T) 

calls: 




CMMND 

DIGIT 




HILO 

calls: 




RDIL2 





HISTO 

calls: 




CMMN2 

DELAY 

DIGIT 

RANGE 


I COPY 

calls: 




CMMND' 

‘ DIGIT 

RANGE 



ICPY2 

cal Is: 




CMMND 

DIGIT 

RANGE 



MERGE 

calls no other 

procedures. 


NOEML 

calls: 




HILO 

RDIL2 

URIL2 



N0TE2 

cal 1 s : 




ADDGR 

CMMN2 

CMMND 

DELAY DIGIT 

>KLEN RftNGE 

NOTES 

cal 1 s : 




CMMil2 

CMMND 

DELAY 

DIGIT DSPGR 

RANGE 

PAINT 

calls: 




CMMND 

RDTAR 

UAIT 

URIRC 


‘ PROFL 

cal Is: 




CHAR 

CMMND 

DIGIT 

RftNGE UAIT 



RANGE calls no olher procedures. 

RDGLN calls: 
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RfiNGE 

RDGPT calls: 

BTEST RANGE 
RI1IL2 calls: 

*ICHAR RANGE 
RDILN calls: 

RANGE 

RPIPT calls: 

>KICHAR RANGE 
RDIRC calls: 

*ICHAR RANGE , RDILN 
RDLUT calls: 

RANGE 

RDPSU calls no othor procedures. 

RDTAB calls: 

BTEST RANGE 

RDTAR calls no other procedures. 

SETV calls: 

CMMND DIGIT RANGE 
SPLIT calls no other pr-ocedures .• 

SPRED calls: 

FLOAT HILO IFIX RDIL2 LJRIL2 
SSORT calls no other procedures. 
SUBI2 calls: 

CmND DIGIT RANGE 
SUBIfl calls: 

CtiMND DIGIT RANGE 
THRSH calls: 

RANGE RDIL2 URIL2 
TSTIl cal Is: 

UIRILN^ . 

TV2C4 calls: 

ADD 1 2 RANGE TV2CM 
T\'2CM calls: 

eWND DIGIT DSPBU RANGE 
IJAIT calls no other procedures. 

IJIPGR calls: 

CMMN2 DIGIT RANGE 
URGLN calls: 

RANGE 

URGPT calls: 

>kIBCLR >«IBSET RANGE 
URIL2. calls: 

CHAR RANGE 
bJR I LN calls: 

RANGE 



URIPT calls: 

RANGE 

URIRC calls: 

CHAR RANGE RDIL2 URIL2 
URLUT calls; 

RANGE 

URPSU calls no other procedures. 

URTAR calls: 

RANGE 


The following are test programs for many of the procedures above 


TADD2 

calls: 



ADD 12 

CMMND 

DIGIT 

RANGE 

TA^I 

calls: 



ADDIM 

CMMND 

DIGIT 

RANGE 

TCLR 

calls: 



DSPCL 




TCLRG 

calls: 



CLRGR 

CMMND 

DIGIT 

RANGE 

TCLR I 

cal Is: 



CLRIM 

CMMND 

DIGIT 

RANGE 

TCMM2 

cal Is: 



CMMND 

UAIT 



TCMIiN 

cal Is: 



CMMND 




TCNT 

cal Is: 



COUNT 

RANGE 

RDIL2 



ICONS calls no oiher procedures. 


TCOPY .• 

col Is: 





CMMND , 

, DIGIT 

ICOPY 

RANGE 



TDELA 

calls: 





DELAY 

CMMN2 

UAIT 




TDIGI 

cal 1 s : 





DIGIT 

RANGE 





TDSP 

cal Is: 





CMMND 

DSPBU 

DSPCL 

RANGE 

UAIT 


TDSPV 

cal Is: 





DSPVD 

CMMND 

DIGIT 

UAIT 

DSPBU 

RANGE 

THIST 

calls: 





CMMN2 

DIGIT 

HISTO 

RANGE 



TNORM 

cal 1 s : 





HILO 

NORML 

RANGE 

RDIL2 

URIL2 


TNOTE 

cal Is; 





CMMN2 

CMMND 

DELAY 

DIGIT 

DSPGR 

N0TE2 

TPNT 

cal Is: 






NOTES 


RANGE URTAR 



CMMND PftINT range RDILN RDTAR U?ILN URIRC 
TPROF calls: 

CfIMND DIGIT PROFL RANGE UAIT 
TRANG calls: 

PANGE 

iTiiDtA calls: 

RANGE RDTAB 

TRSET . calls no other procedures. 

TSEtV calls: 

SETV RANGE DIGIT CMTWD DSPBU 
TSPRD 'Calls: 

RANGE RDIL2 SPRED URIL2 
TSSRT calls no other procedures. 

TSUBl calls: 

CMMND DIGIT 15ANGE SUB12 SUBIM UAIT 
TTHRS calls: 

RANGE RDIL2 THSH URIL2 

TTSTI calls no other procedures. 

TTV2C calls: 

ADDI2 CMMND DIGIT DSPBU DSPVD RANGE TV2C4 TV2CM UAIT 
TUA IT calls: 

UAIT 

TUIPE calls: 

CMMN2 DIGIT DSPGR RANGE UAIT UIPGR 
TXFDS calls: 

BUFDS CLFDS CMMND DIGIT RANGE URILN 
TXGLN calls: 

RANGE RDGLN URGLN 
TXGPT calls: 

RANGE" RDGPT RDTAR URGPT 
TXILN Odl 1 s : 

RANGE RDILN URILN 
TXIPT calls: 

RANGE RDIPT UAIT URIPT 

TXIRC calls: 

RANGE RDILN RDIRC URILN URIRC 
TXLUT calls: 

RANGE RDLUT URLUT 
TXPSLI calls: 

RDPSU URPSU RANGE UAIT 
TXTAR calls: 

RDTAR URTAR RANGE 


10 





&flDDin T«00004 IS ON CR00021 USING 00024 BLKS R«0000 


8001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 
0017 
0316 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE ADDIMCC, ft, B) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0 

CxoiokPARAMETER DECLARATIONS: 

C 


INTEGER C ! 
C ,! 


INTEGER A, 

C 

CxotoklNTRODUCTION: 


ths COMTAL ifnags into which the sux of 
ixage A end image B ic placed by (C » A + B) 
B ! the irnagea whose swx is tclten (C ■ A + B) 


C 

C 

c 

c 

c 


The subroutine "ADD IMages* takes a pixel by pixel sum 
of images A and B and places the resulting image into image C. 

The truecolor image 8 is used in the processing of ADDIM. and will 

be left as the combination of C. A, and B for red. green* and blue 
respectively. 


C 

C ADDIM does not do any scaling of the addition. If scaling is desired, 
C see the procedure ADD 12. 

C 

C?loiokLANGUAGE : 

C 

C FORTRAN 77, the HP 1000 version for RTE-6A^M. 

C 

C>mokLINITATIONS: 

C 

■C The truecolor B image is destroyed during this operation. C is 
C- obviously destroyed. This subroutine is accomplished using COMTAL 
C commands that exploit the pipe-line processors. Because of this, the 

C processing steps are obscure. For example, there is no motivation 

C outside the COMTAL instructions for making the combination of C, A, 

C B a color image. Readers should be aware of these obscurities before 
C trying to understand the code. 

C 

C If the sum of any two pixels, exceeds 255, the value in C is set to 255. 

C ADDIM does not scale or offset the sum result. If you wish to scale 

C the sums, see the subroutine ADDI2. 

C 


V If any of the image numbers are out of range, an error message is printed 
C and no further processing takes place, 

C This subroutine assumes that 0 is not a legal image for the COMTAL 
C configuration. 
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0045 C 

0046 CsiototcSUBPROGRfiMS CALLED: 

0047 C 

0048 C name source 1 oad remarKs 

0050 , C CMT1ND -&CMMND JiCMTIND Sends a command to the COMTAL as if the 

0051 C command were sent from the keyboard 

0052 C RANGE 8.RANGE GRANGE logical function that determines if the 1st 

0053 C parameter is uithin the range of the 2nd 8. 3rd. 

0054 C DIGIT &DIGIT %DIGIT character>Kl function which returns '0'~'9' 

0055 C according to integer input 0-9. 

0056 C 

0057 C*Jk*URlTTEN BY: 

0056 C 

0059 C KEITH TIILLER, July. 19B4. with the support of a NASA-ASEE 

0060 C summer fellowship. 

0061 C 

0062 C>tolokREVISION HISTORY: 

0063 C ' 

0064 C 

0065 C>toioKLOCAL VARIABLES: 

0066 C 


0067 


INTEGER 

IBUF(128) ! 

a buffer for passing commands to COMTAL 

0068 


CHARACTER>k255 

CBUF ! 

character overlay for IBUF 

0069 


EQUIVALENCE 

(IBUF.CBUF) 


0070 

C 




0071 


LOGICAL 

RANGE ! 

function that determines if 1st parameter 

0072 

C 


! 

is within 2nd and 3rd parameter 

0073 

C 




0074 


INTEGER 

IMLO, IMHI ! 

limits on COMTAL image numbers 

0075 


INTEGER 

TERM 


0076 


CHARACTER>kl 

DIGIT ! 

character>Kl function that returns '0'-'9' 

0077 

C 


] 

according to integer input 0-9. 

0078 

C 





0079 C>t»iokINITIALIZATIONS: 

0080 C 

0081 DATA IMLO/1/, IMHI/4/ 

0082 DATA TERM/1/ 

0083 C 

0084 C>k>K>KPROCESSING 

0085 C 

0086 IF C.NOT. CRANGECA. IMLO. IWI))) GOTO 8001 ! error return 

0087 If (.NOT. (RANGECB. IMLO. imim GOTO 8101 ! error return 

0088 IF (.NOT.(RAHGE(C.IMLO,imi)n GOTO 8201 ! error return 

0089 C 

0090 C The following character string sends a series of keyboard 
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0091 

0092 
B093 

0094 

0095 

0096 

0097 

0093 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
011 1 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
6121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 
0129 
0136 

0131 

0132 

0133 

0134 

0135 


C commands to the COfTTflL. In the comments below, each command 
C is explained. The notation #X where X is either fi. B. or C 

C stands for the single character that corresponds to the single 

C digit number ossociated with the parameter X. 

C In this notation, letters in caps were entered into CBUF. and 
C lower case letters are the full commands filled in by the COMTfiL 

C NOTE: this code assumes that the digit 0 is NOT a legal value for 

C the parameters ft. B. and C, 

C The separotes COMTAL commands. 

C 

CBUF - 

1 'UN I B SV/ 

C UNassign image 8 ! just in case 8 is already assigned. 

2 'ftS T 8 '//DIGIT(C)//' '//DIGIT(A)x/' '//DIGIT(B)//' $'// 

C ftSsign Troecolor image 8 red *C blue *A green 

3 'D I 8 S'// 

C Display Image 8 

4 'SE COM G + B / 1 $'// ! sets 0 offset by default, and 

C ! "/ 1" sets no scaling. 

C SEt COI'bine <Green -r Blue> / 1 

5 'A COM S'// 

C Add COMbine 

6 'I '//DIGIT<0//' D R S'// 

C Image #C » Displayed Image Red ! Red is arbitrary, since difference 

^ ! of images is monochome 

7 'D I '//DISIT(C)//' S'// 

C Display Image <!=C 

8 'SU COM ' 

C subtract COMbine. 

CALL CMMNDCIBUF. 78) 

RETURN 

C 

C^ERROR returns 

c 

8001 WRITE (TERM. 8263) ft 

8663 FORMATC' THE 2ND IMAGE PARAMETER.'. 13. '. IS OUT OF RANGE.') 

GOTO 8900 
C 

8101 IJRITECTERM, 8103) B 

6103 FORMATC' THE 3RD IMAGE PARAMETER.'. 13. '. IS OUT OF RANGE.') 

GOTO 8900 
C 

6261 WRITE (TERM. £203) C 

8203 FORMATC' THE 1ST IMAGE PARAMETER.'. 13. '. IS OUT OF RANGE.') 

GOTO 8900 


0136 C 
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.0137 

0130 

0139 

0140 

0141 

0142 


0900 URITECTERM, 8901) 

0901 FORMftTC' ADD in RETURNS WITHOUT 
RETURN 

C 


FURTHER PROCESSING. 


END 


) 
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8.ADDI2 T«00004 IS ON CR00021 USING 00024 BLKS R=0000 


0001 

0082 

0003 

0004 

0005 
000g 

0007 

0008 
0809 
0010 
0011 
0012 


0013 

C 

0014 

C 

0015 

c 

0016 

c 

0017 

c 

0018 

0019 

c 

0020 

c 

0021 

0 

0022 

c 

0023 

c 

0024 

c 

8025 

C: 

0026 

c 

0027 

c 

0028 

c^ 

0029 

c' 

0030 

c 

883! 

c 

0832 

c 

8833 

c 

0034 

c 

0035 

c 

0036 

c 

003? 

c 

0838 

c 

0839 

c 

0840 

c 

0041 

c 

0042. 

c 

0043 

c 

0044 

c 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE ADD 12 (C, A, B, SCALE) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C*3to*(PARAMETER DECLARATIONS: 

C 

INTEGER C ! the COtITAL image into which the sum of 

C ! image A and image B is placed (C « A + B) 

INTEGER A- B ! the images whose sum is taKen (C ■ A + B) 

^ INTEGER SCALE! each pixel sum divided by this number. 

C**c*INTRODUCTION: 

The subroutine 'ADD IMages* toKes o pixel by pixel sum 
of images A and B, divides each sum by SCALE, and places the results 
into image C. SCALE must be between 1 and 9 inclusive. 

The truecolor image 8 is used in the processing o' ADDI2, end wil’ 
be left as the combination of C, A, and B for red, green, ondblue 
respect ively . 


FORTRAN 77, the HP 1000 version for RTE-6A^. 


The truecolor 8 image is destroyed during this operation. C is 
obviously destroyed. This subroutine is accomplished using COMTAL 
commands that exploit the pipeline processors. Because of this, the 
processing steps are obscure. For example, there is no motivation 
outside the COMTAL instruct ions' for maK ing the combination of C, A, and B 

a color image. Readers should be aware of these obscurities before trying** 
understand the code. ■as 


The three image numbers must be distinct. 

If the sum of any two pixels exceeds 255, the value in C is set to 255. 
The SCALE factor must be between 1 and 9 inclusive. 

If any of the image numbers are out of range, an error message is printed 
and no further processing takes place. 

This subroutine assumes that 0 is not a legal image for the COMTAL 
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0045 C conf igural ion. 

0046 C 

0047 C>towt«UBPROGRftnS CALLED: 

0048 C 


0049 

0050 

0051 

C 

C 

C 

name 

source 

load 

remarKs 


CMMND 

&CMMND 

SJCfttiD 

Sends o command to the COMTAL as if 

the 

0052 

0053 

C 

C 

RANGE 

6.RANGE 

GRANGE 

command were sent from the Keyboard 
logical function that deternines if 

the 1st 

0054 

C 




parameter is within the range of the 

' 2nd & 3rd. 

0055 

C 

DIGIT 

8.DIGIT 

JiDIGIT 

character>Kl function which returns ' 

0'-'9' 


0056 C occording to integer input 6-9. 

0057 C 

0058 C>wo*clJRITTEN BY: 

0059 C 

0060 C KEITH MILLER. July. 1984. uith the support of o NflSft-flSEE 

0061 C summer fellowship. 

0062 C 

0063 C>toioKREVISION HISTORY: 

0064 C 

0065 C 

0066 OtotoKLOCAL VARIABLES: 

0067 C 


0068 


INTEGER 

IBUF(128) ! 

a buffer for passing commands to COMTAL 

0069 


CHARACTER>K255 CBUF ! 

character overlay for IBUF 

0070 


EQUIVALENCE 

(IBUF.CBUF) 


0071 

C 




0072 


LOGICAL 

RANGE ! 

function that determines if 1st parameter 

0073 

C 


j 

is within 2nd and 3rc' parometer 

0074 

c-' 




0075 

. 

INTEGER 

iri_0. IMHI ! 

limits on COMTAL image numbers 

0076 


INTEGER 

TERM 


0077 


CHARACTERJKl 

DIGIT ! 

character’ll function that returns '0'-'9' 

0078 

C 


j 

according to integer input 0-9. 

0079 

c 




6080 

C>toioxINITIALI2ATI0NS: 


0631 

C 




0082 


DATA 

IMLO/l/. IMHI/4/ 

0083 


DATA 

TERM/1/ 


0084 

C 




0085 

Cx*)!'PR0CESSING 



0086 

C 





0087 IF (.NOT. (RANGECA. IMLO. irUI))) GOTO 8001 ! error return 

0088 IF (.NOT. (RANGE(B. IMLO. II1HI))) GOTO 8101 ! error return 

0089 IF (.NOT. (RANGE(C. IMLO. IMHim GOTO 8201 ! error return 

0090 C 
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0091 C 

0092 C 

0093 C 

0094 C 

0095 C 

0096 C 

0097 C 

0098 C 

0099 C 

0100 C 

0101 C 

0102 

0103 

0104 C 

0105 

0106 C 
010 ? 


The following character siring sends a series of Keyboard 
commands to the COtTTflL. In the comments below, each command 
is explained. The notation #X where X is either A, B. or C 
stands for the single character that corresponds to the single 
digit number associated with the parameter X. 

In this notation, letters in caps were entered into CBUF. and 
lower case letters are the full commands filled in by the COMTftL 
NOTE: this code assumes that the digit 0 is NOT a legal value for 
the parameters A. B. end C. 

The separates COlfTAL commands. 

CBUF = 

1 'UN I 8 $'// 

UNassign Image 8 ! just in case 8 is. already assigned. 

2 'AS T 8 '//DIGIT(C)//' '//DIGIT(A)//' '/'/'DIGITtB)//" S'// 

ASsign Truecolor image 8 red #0 blue #A green #B 

3 'D I 8 S'// 


0108 

C 

Display Image 8 




0109 

4 

'SE COM G + B / '//DIGIT(SCALE)//' S'// 




0116 

C 

SEl COMbine <Green Blue> / SCALE 




011 1 

5 

'A COM $'// 




0112 

C 

Add COMbine 




0113 

6 

'I '//DIGITCO//' D R S'// 




0114 

C 

Image 4C = Disployed image Red ! Red is arbitrary 

. since difference 

6115 

rv 

U 

! of images 

is 

monochome 

01 16 

7 

'D I '//DIGIT(C)//' S'// 




011? 

C 

Display Image *C 




0118 

8 

'SU COM ' 




01 19 

C 

subtract COMbine. 




0126 


CALL CMMNDCIBUF. 77) 




0121 


RETURN 




0122 

c’ 





0123 

C»oio;<ERR0R RETURNS 




0124 

C 





0125 

8001 

LJRITE (TERM. 8803) A 




0126 

8003 

FORMAT THE 2ND IMA2E ='P,RAMETER. ' . 13, ', IS 

OUT 

OF 

RANGE.') 

0127 


GOTO 8900 




01 22 

c 





012S 

8101 

WRITE (TERM. 8103) B 




0132 

8103 

FORNATC' THE 3RD IMAGE PARAMETER. ' . 13, IS 

OUT 

OF 

RANGE.') 

0131 


GOTO 8900 




0 1 32 

C 





0133 

8201 

WRITE (TERM, 8203) C 




0134 

8203 

F0RMAT(' the 1ST IMAGE PARAMETER.', 13. ', IS 

OUT 

OF 

RANGE.') 

0135 


GOTO 8900 




6136 

C 
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013? 8900 URITECTERM, 8901) 

0.1;38 B901 FORMATC' ADD 12 RETURNS UITHOUT FURTHER PROCESSING.' 

0139 RETURN 

0140 C 



&BUFDS T=00004 IS ON CR0Se21 USING B0018 ELKS R=0000 


— — wwwwwwwwwwwww«iif%^WWWW4,rWWWWWWWWW4^WWWWU 

SUBROUTINE BUFDSUriftGE, FLNftME) 

cccccccccccccccccccctxcccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C^toiokPARftMETER DECLfiRftTIONS : 

c 

INTEGER IMAGE ! the nuntoer of the COMTftL inage plane to be 
^ ! filled from the HP disk file. 

INTEGER FLNftfE(i) ! the HP filename from which an image will be read 
C 

C>toioKlNTRODUCTION: 

C 

c The subroutine *BltJck and Uhite From DiSk" transfers one imoge 

C from the HP to the COMTAL. The image number ond the name of the HP 

C disk are given as parameters. 

C 

C>toiokLANGUAGE : 

C 

C FORTRAN 77. the HP 1000 version for RTE-6/VM. 

C 

C>to)okL IMITATIONS: 

C 

C BLFDS only works for b&u images. Since a color image requires 
C three separate bg^j images, another subroutine, CLFJS is available 
C for reading color images from the disk. 

C 

C>totokSUBPROGRAhS CALLED: 

c- 


source 1 ocd remarks 


RANGE 


READF 


URILN 


CMMND 


DIGIT 


8.RAHGE ^fiSGE logical function that determines if the 1st 

argument is within the 2nd end 3rd inclusive. 

I^p FORTRAN?? intrinsic subroutine; opens -o file 
and stores data block inforraotion in first param. 
pp fortran?? instrinic subroutine; reads a record 
from a file; requires an OPENed data block. 

S.LJRILN :iiilRILN URites a COMTAL Image horizcntal LiNe; 2 pixels 
per integer in the buffer. 

S.CMMND , sends commands to the CDMTr.L cs if they were 

typed at the COMTAL keyoocrc. 

8.DIGIT :^DIGIT a character*! function that returns a single 
ASCII digit when given on integer 0-9 


C***URITTEN BY: 
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8045 

8046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 
8054 
0055 
005S 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 
0880 
0031 
0882 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 


C 

C 

C 

C 

C 

c 


subprogrom is based uras written by 

This subprogram was written by 

KEITH nILLER, July, 1984, with .the support of a NftSft-ASEE 
summer fellowship. 


C>to)oKREVISION HISTORY: 

C 

C 


C>to(okLOCftL VARIABLES: 
C 


c 

c 

c 

c 


INTCGER 

INTEGER 

INTEGER 

INTEGER 

LOGICAL 

INTEGER 

INTEGER 


DBL0CK(144) 
I ERR 

IBUFC256) 

ROU 

RANGE 


IMLO, IMHI 
TERM 


! a Data control BLOCK used in file 10. 

! holds HP 10 return code. 

! buffers one horizontal row of COMTAL pixels. 

! -loop indexing which COMTAL row, 

! logical function that determines if 1st porameter 
! is between 2nd and 3rd, inclusive. 

! limits on COMTAL image numbers. 

! logical unit for terminal output 


CHARACTER*! DIGIT ! function that returns 

! according to o 0, 1, . . 
CHARACTER*255 CBUF ! overlays IBUF 
EQUIVALENCE (CBUF, IBUF) 


'0','1' or '9' 

or 9 integer input. 


C***INITIALI2ATI0NS: 

C 


DATA IMLO/1/, IMHI/4/ 

data TERM/1/ 

C-' 

C>ic*>kPR0CESS ING 
C 

IF (.NOT. (RANGE (IMAGE , IMLO, IMHI ) ) ) GOTO 8001 ! error return 
G 

CALL OPENCDBLOCK. lERR, FLNPME) 

IF (lERR .LT. 0) GOTO 8201 ! error return, open failed 
C 

CBUF = D I '//DIGIT( IMAGE) ! Display the Image to be filled. 
CALL CMMiiDdBUF.S) 

C 

DO 1000 ROU =0, 511 

CALL READF(DBLOCK, lERR, IBUF) 

IF (lERR .LT. 0) GOTO 8301 ! error return, bad read 
CALL URILN( IMAGE, ROU, IBUF) 

1000 CONTINUE 
C 


0091 RETURN 

0092 r 

0093 -C>»toi€RROR RETURNS 

0094 C 

0095 8001 URITECTERM, 8003) IMAGE, IMLO. IMHI 

0096 8003 FORMATC' IMAGE MUMBER, ' ,13," , IS OUT OF RANGE: ", 214, ' . 

0097 GOTO 8900 

0098 C 

0099 8201 WRITE (TERM, 8203) lERR 

0100 8203 FORMAT(' ERROR OCCURED DURING IMAGE FILE OPENING:' , 14, 

0101 GOTO 8900 

0102 C 

0103 8301 WRITE (TERM, 8303) lERR 

0104 8303 FORMAT(' ERROR OCCURED DURING IMAGE FILE READ:', 14, ' 

0105 GOTO -8900 

0106 C 

0107 8900 WRITE(TERM, 8901) 

0108 8901 FORMAT(' BWFDS FAILS. NO TRANSFER TAKES PLACE.') 

0 ) 09 RETURN 

0110 END 



&CLFIIS T=00004 IS ON CR00021 USING 00018 BLKS R=0000 

0001 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0002 SUBROUTINE CLFDSCRED. GREEN, BLUE, COLOR, FLNftME) 

0003 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0004 C 

0005 CjioiokPARAMETER DECLARATIONS: 

0006 C 

000^ INTEGER RED, GREEN, BLUE ! colors of the COMTAL image planes 

0008 8 ! to be filled from the HP disk file. 

0008 INTEGER COLOR ! the truecolor image to be formed and disployed, 

0010 INTEGER FLNAMEC3) ! the HP filename from which an image will be read. 

0011 C 

0012 C:*otok INTRODUCTION: 

0013 C 

0014 C The subroutine “CoLor image From DiSk* transfers three b8«u images 

0015 C from the HP to the COMTAL, and then assigns these to a truecolor 

0016 C image on the COMTAL. The filename names a single file holding all 

0017 C three monochrome images. The COLOR image number is automatically 

0018 C unass ig-'ed and assigned by CLFDS. and after oil three component 

0019 C images are transferred, the color image is displayed. 

0020 C 

0021 C>K3|okLANGUAGE: 

0022 C 

0023 C FORTRAN 77, the HP 1000 version for RTE-6A^M. 

0024 C 

0025 C>ioiokL IMITATIONS: 

0026 C 

0027 C The three parameters RED, GREEN and BLUE must be distinct and 

0028 C within the IMLO. IMHI range. COLOR must be within the TRLO, TRHI 

0029 C range (which is mutually exclusive with IMLO-IMHI). The limits on 
0830 C truecolor numbers are arbitrary. However, this subroutine enforces the 

0031 C arbitrary limits. The HP imag^ file must contain all three monochrome images 

0032 C in the order RED, GREEN, and BLUE. 

0033 C . . 

0034 C>mokSUBPR0GRAMS CALLED: 

0035 C 

0036 C name source load remorks 

0037 C 

0033 C RANGE GRANGE ?(RANGE logical function that determines if the 1st 

3039 C argument is within the 2nd and 3rd inclusive. 

0040 C OPEN HP F0RTRAN77 intrinsic subroutine; opens a file 

0041 C and stores data block information in first param. 

0042 C READF HP F0RTRAN77 instrinic subroutine; reads a record 

0043 C from a file; requires an OPENed data block. 

0044 C UIRILN 8<URILN ;iURILN URites a COMTAL Image horizontal LiNe; 2 pixels 
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0045 

0046 
004? 

0048 

0049 

0050 

0051 

0052 
6853 

0054 

0055 

0056 
005? 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 
006? 
0068 
0069 
00?0 
60? 1 
00?2 
00?3 
08?4 
60?5 
8076 
00?? 
6078 
0079 
01030 

00c' 1 

0032 

0033 

0034 

0085 

0086 

0087 

0088 
0089 
6090 


C per integer in the buffer. 

C CMMND 8.CMNND ^CMMND transfers a command string to the COMTAL* which 

C accepts it as a keyboard command. 

C DIGIT &DIGIT JiDIGIT character>Kl function that returns a single digit 

C on legal integer inputs 0-9. 

C 

CjioiokLJRITTEN BY: 

c 

C The code on which this subprogram is based was written by 
C NETTIE D. FAULCON. July. 1983. This subprogram was written by 
C KEITH MILLER. July. 1984. with the support of a NASA-ASEE 
C summer fellowship. 

C 

C>lotokREVISI0N HISTORY: 

C 

c 

CxoiokLOCAL VARIABLES: 

C 

INTEGER 
INTEGER 
INTEGER 
INTEGER 
LOGICAL 
C 

INTEGER 
INTEGER 
INTEGER 
C 


DBL0CK(144) 

lERR 

IBUF(256) 

ROU 

RANGE 

IMLO. IMHI 
TRLO. TRHI 
TERM 


a Data control BLOCK used in file 10. 
holds HP 10 return code. 

buffers one horizontal row of COMTAL pixels, 
loop indexing which COMTAL row. 

logical function that determines if 1st parameter 
is between 2nd and 3rd. inclusive, 
limits on COMTAL b&iW image numbers, 
limits on COMTAL truecolor image numbers, 
logical unit for terminal output 


CHARACTER5»!255 CBUF ! character overlay for sending COMTAL commands 
EQUIVALENCE (CBUF. IBUF) 

CHARACTER>Kl DIGIT ! function that returns '0'.'!'..., or'9' 

C ! according to 0.1..... or 9 integer input. 

CJtotot^INITIALIZATIONS: 

C 


DATA IMLO/l/. INHI/4/ 

DATA TRLO/5/. TRHI/9/ 

DATA TERM/1/ 

C 

C>k>:o(!PR0CESS IMG 
C 


IF ( . NO I . ( RANGE ( RED . IMLO. IMHI )) ) GOTO 8001 ! error return 
IF (.NOT, (RANGE (GREEN . IMLO. IMHI )) ) GOTO 8101 ! error return 
IF (.NOT. (RANGE (BLUE . IMLO. IMHI) ) ) GOTO 8201 ! error return 


IF ((RED .EQ. GREEN) .OR. (GREEN .EQ. BLUE) 
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eesi 

0092 

0093 

0094 
6095 

0096 

0097 
6098 

0099 

0100 
0101 
0102 
0103 
6104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 
0113 
6114 

0115 

0116 
6117 
0118 

0119 

0120 
6121 
0122 
6123 

0124 

0125 

0126 

0127 

0128 
0129 
0138 

0131 

0132 

0133 

0134 

0135 

0136 


1 .OR, (RED ,EQ. BLUE)) GOTO 8301 ! error return 

w 

IF (.NOT. (RANGE (COLOR- TRLO-TRHI))) GOTO 8401 ! error return 

c 

CALL 0PEN(DBL0CK- lERR. FLNAME) 

^ IF (lERR .LT. 0) GOTO 8501 ! error return- open foiled 

CBUF . 'D I '//DIGIT(RED) ! Display the RED Image as it is filled 
CALL CMMND(IBUF-5) y n xs tiiiea. 

DO 1000 ROD •= 0-511 

CALL READF(DBLOCK, lERR- IBUF) 

IF (lERR .LT. 0) GOTO 8601 ! error return- file read failed 
CALL URILN(RED- ROU, IBUF) 

1000 CONTINUE 
C 

CBUF . 'B I V^IGIT(GREEN) I Dljploy th. GREEN tag. os it is tillod. 
CALL CmND(IBUF-5) is Taiiea. 

DO 2000 ROU >= 0-511 

CALL READF(DBLOCK- lERR- IBUF) 

IF (lERR .LT. 0) GOTO 8701 ! error return- file read failed 
CALL UR ILN (GREEN- ROU- IBUF) 

2000 CONTINUE 


CBUF « 'D I V/DIGIT(BLUE) ! Display the BLUE Image a«= 
CALL CmND(IBUF-5) 

DO 3000 ROU <= 0-511 

CALL READF(DBLOCK- lERR, IBUF) 

IF ( lERR .LT. 0) GOTO 8801 ! error return- file read 
CALL UR ILN (BLUE- ROU- IBUF) 

3000 CONTINUE 


it is f illed. 


failed 


Let #C- *R- ^G- be the DIGIT associated with COLOR- RED- 
GREEN- and BLUE respectively; then the following CttlND calls 
read as follows: UNassigh Image •*'C; ASsign Truecolor *C 
red #R green #G blue #B; Display Image #C 


CBUF = 'UN I '/.^DIGIT(COLOR) 

CALL CMMND(IBUF-6) 

CBUF = 'AS T '//DIGIT(COLOR)//' ' //D IG IT(RED) '// 
1 DIGIT(GREEN)/'/' '//DIGIT(BLUE) 

CALL CmNDdBUF, 12) 

CBUF ■= 'D I '//DIGIT(COLOR) 

CALL CMMND(IBUF-5) 

RETURN 

C 

CuotokERROR RETURNS 
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0137 C 

0138 8001 UlRITECTERM, 8003) RED, INLO, IMHl 

0139 8003 FORMAK' RED IMAGE NUMBER, M3,', IS OUT OF RANGE:', 214,' 

0140 GOTO 8900 

0141 C 

0142 8101 URITECTERM, 8103) GREEN, IMLO, IMHI 

0143 8103 FORMATC' GREEN IMAGE NUMBER, ', 13, ' , IS OUT OF RANGE: ' ,214, '.' ) 

0144 GOTO 8900 

0145 C 

0146 8201 URITECTERM, .8203) BLUE, Ift-0, IMHI 

0147 8203 FORMATC' BLUE IMAGE NUMBER, ', 13, ', IS OUT OF RANGE:', 214,' .') 

0148 GOTO 8900 

0149 C 

6150 8301 URITECTERM, 8303) RED, GREEN, BLUE 

0151 8303 FORMATC' 3 MONOCHROME IMAGES MUST BE DISTINCT. YOURS:',3I4) 

0152 GOTO 8900 

0153 C 

0154 8401 URITECTERM, 8403) COLOR, CLLO, CLHI 

0155 8403 FORMATC' YOUR TRUECOLOR IMAGE, ', 14, ' , IS OUT OF RANGE: ',214) 

0156 GOTO 3900 

0157 C 

0158 8501 URITECTERM, 8503) lERR 

0159 8503 FORMATC' ERROR UH I LE OPENING IMAGE FILE:', 15) 

0160 GOTO 8900 

0161 C 

0162 8601 URITECTERM, 8603) lERR 

0163 8603 FORMATC' ERROR UHILE READING IN THE RED MONOCHROME IMAGE:', 14) 

0164 GOTO 8900 

0165 C 

0166 .8701 URITECTERM, 8703) lERR 

0167 8703 FORMATC' ERROR UHILE READING IN THE GREEN MONOCHOME IMAGE: ',14) 

0168 GOTO 8900 

0169 C 

0170 8801 URITECTERM, 8803) lERR 

0171 8803 FORMATC' ERROR UHILE READING IM THE BLUE MONOCHOME IMAGE: ',14) 

0172 GOTO 8900 

0173 C 

0174 8900 URITECTERM, 8901) 

0175 8901 FORMATC' CLFDS FAILS. NO TRANSFER TAKES PLACE.') 

0176 RETURN 

6177 END 
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E.CLRGR T=66B04 IS ON CR08B21 USING 00012 BLKS R=0000 

0001 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

0002 SUBROUTINE CLRGRC GRAPH 1 

0003 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0004 C 

0005 C>I:>I<*PARAMETER DECLARATIONS: 

0006 C 

INTEGER GRAPH i the number of the COMTAL GRAPH to be cleared. 

066S C 

8009 C>i:>tokINTRODUCTION: 

0010 C 

B0n C CLeaR GRAPH clears the graphics designated by GRAPH. GRAPH should 

0012 C be within the range 1-4 for the present IRD COMTAL system. 

6313 C If GRAPH is out of range* an error message is printed and 

0014 C no COMTAL transfer takes place. 

0015 C 

6316 C>t">i:*LANGUAGE: 

601? C 

6018 C rORTRAN 77* the HP- 1000 version for RTE-6/VM. 

6019 C 

6020 C:k>t<*LIMITATIONS: 

6321 C 

0022 C GRAPH must be within the limits GRLO and GRHI explained below. 

0023 C 

0024 C>k’!«t!SUBPROGRAMS CALLED: 

0925 C 

0026 C name source load remarks .. 

6027 C 

002E C RANGE G.RANGE JiRANGE logical function that determines if its 1st 

C parameter is between (inclusive) its last parameters 

0630 C CMMND 6.CMMND ^CMMND sends a COMTAL command as if it ojere typed at 

1^031 C the COMTAL keyboard. 

6Uo4 C DIGIT &DIGIT 'iDIGIT returns a character (1st parameter) which is the 

^ character equivalent of the integer 2nd parameter. 

6634 C 

6035- C^^':m,JRITTEN BY: 

6036 C 

P33? 0 The code cm which this subprogram is based was written by 

66.jo‘ C liETTIE D. FAULCON* July* 1983, This rriod i f icat ion is by 

6039 L KEITH MILLER* June* 1384. 

0040 C 

0041 Cx-^^REVISION HISTORY: 

6042 C 

6043 Cxr4-.>nL0CAL VARIABLES: 

0044 C 
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I 


0045 

0846 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 
005? 
0858 

0059 

0060 
6661 
6652 
6063 
6664 
6865 
0066 
606? 
0068 
8069 
60?0 
6871 
0072 
8673 
0074 
8675 
6376 
■0077 


INTEGER GRL0,GRH1 ! limits on COMTAL GRAPH numbers 

CHARACTERJKI UHICH 

LOGICAL RANGE I logical function that determines if its 

! 1st parameter lies uithin last 2 parameters. 
INTEGER TERM ! logical unit number of the terminal output 

INTEGER IBUF(128) ! COMTAL command buffer 

CHARACTERIZES CBUF ! overlays the IBUF command buffer- 

EQUIVALENCE (IBUF. CBUF) 

C 

C>to)okINITIALI2ATI0NS: 

C 

DATA GRLO/1/. GRHI/4/ 

DATA TERM/1/ 

C 

C>to)okPROCESS ING 
C 

IF (.NOT. (RANGE (GRAPH, GRLO.GRHI))) GOTO 8001 ! error return 
C ELSE... cl ear the GRAPH 

CALL DIGITOJHICH, GRAPH) 

CBUF = CLEAR GRAPH ” // UHICH ! since CBUF overlays IBUF. 

! this statement loads IBUF with 
! the COMTAL command 

CALL CMMNDdBUF. 13) 

RETURN 

C 

C>totoKERROR RETURN 
C 

8001 URITE(TERM. 8003) GRAPH. GRLO. GRHI 

8003 F0RMAT(' GRAPH NUMBER, '. 14, ' IS OUT OF RANGE:', 213, '.') 

UR I TE (TERM, 8005) 

8005 F0RMAT(' CLRGR FAILS. NO COMMAND SENT TO COMTAL.') 

RETURN 

END 


« 
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0001 

0002 

0003 

0004 

0005 

000b 

0007 

000S 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
002 1 
0022 

0023 

0024 
6025 
0026 
0027 
0828 
8029 
0036 

•■6631 

0632 

0033 

0034 
6035 
0036 
C si' 7 
6636 
0039 
0846 

0041 

0042 

0043 
0644 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE CLRIMC IMAGE ) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C>ic>k>kPARAMETER DECLARATIONS: 

c 

INTEGER IMAGE ! the number of the COMTAL image to be cleared. 

C 

CxotouiNTRODUCTION: 

C 

C CLcaR IMage clears; the image designated by IMAGE. IMAGE should 

C be uithin the range 1-4 for the present IRD COMTAL system. 

C If IMAGE is out of range, an error message is printed and 
C no COMTAL transfer takes place. 

C 

Cx:>K*LANGUAGE: 

C 

C FORTRAN 77. the HP- 1000 version for RTE-6/VM. 

C 

C*>K>H IMITATIONS: 

C 

C IMAGE must be within the limits IMLO and IMHI explained below. 

C 

C«>k>kSUBPROGRAMS CALLED: 

C 

C name source load remarks 

C 

C RANGE 8.RANGE %RANGE logical function that determines if its 1st 

C parameter is between (inclusive) its last parameterC 

C CMMND 8.CMMHD %CMMND sends a COMTAL command as if it were typed at 

C the COMTAL Keyboard. 

C DIGIT &DIGIT ?^DIGIT a character*! function which returns the charocler 

C associated with integer inputs 0....,9. 

C 

C***lJRITrEN BY: 

C 

Z The code on which this sutaprogram is based was written by 
C 12TTIE D. FALILCON. July. 19S3. This mod if ication is by 
C KEITH MILLER. June. 1984, 

C 

C***REVISION HISTORY: 

C 

C*>ioi-L0CAL VARIABLES: 

C 
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0045 

0046 
004? 

0048 

0049 

0050 

0051 

0052 
0653 

0054 

0055 

0056 
005? 
0058 
0659 
0060 
0061 
0062 

0063 

0064 

0065 
8066 
606? 
0068 
0069 
00?0 
00? 1 
00?2 
60?3 
00?4 
00?5 

■ 0076 
007? 


INTEGER IMLO, IliHI ! 

LOGICAL RANGE I 


INTEGER 

INTEGER 

CHARACTER>kl 


I E.IM I : 

IBUFC128) ! 
DIGIT 1 


CHARACTER>i:255 CBUF ! 

EQUIVALENCE (IBUF,CBUF) 


C 

C^iotoKlNITIALIZATIONS: 

C 

DATA iriLO/1/, IMHI/4/ 
DATA TERM/1/ 


limits on COMTAL image numbers 
logical function that determines if its 
1st parameter lies uithin lost 2 parameters, 
logical unit number of the terminal output 
COMTAL command buffer 

function that returns the ASCII character 
associated uith integer input. 0.....9. 
overlays the IBUF command buffer 


C 

C>ioK5kPR0CESSING 

C 

IF (.NOT, (RANGECIMAGE. IMLO. IMHD)) GOTO 8001 ! error return 
C ELSE... clear the image 

CBUF = 'CLEAR IMAGE ' // DIGITC IMAGE) ! since CBUF overlays IBUF, 

! this statement loads IBUF uith 
! the COMTAL command 

CALL CMMNDCIBUF, 13) 

RETURN 

C 

C>k>k*ERR0R RETURN 
C 

8001 URITECTERM, 8003) IMAGE, IMLO, IMHI 

8003 F0RMAT(' IMAGE NUMBER. ', 14. ' IS OUT OF RANGE:', 213, '.') ' 
URITECTERM. 8005) 

8005 FORMATC' CLRIM FAILS. NO COMMAND SENT TO COMTAL.') 

RETURN 



&ChMN2 T>=00004 IS ON CR00021 USING 00018 BLKS R=0000 

0001 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0002 SUBROUTINE CMMN2 ( INBUF) 

0003 CCCCCCCCCCCCGCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

0004 C 

0085 C>tok*PftRAMETERS: 

0006 C 

CHARftCTER»<(>k) INBUF ! the characters of a COMTAL command sirina 
6008 C ^ 

0009 C>Mo« introduction : 

0010 C 

0011 C 
0812 C 

0013 C 

0014 C 
6815 C 
6016 C 
081? C 
0318 C 
0019 C 
0620 C 
0021 C 
6822 C 
0623 C 

0024 C 

0025 C>iotokLANGUAGE : 

0026 C 

6827 C FORTRAN 77 , the HP-1000 version for RTE-6/VM. 

0028 C 

0029 C;ioX5)limTATI0NS: 

In order to make it easier to send single COMTAL commands to CftIND. 
the final blank, $, and the required zero byte are added automatically 
to the INBUF string. 

If the last character isn't a blank, CMMND adds one. 

However, the caller should NOT add the final S or zero byte to the 
string. Note that each £ in the string should be proceeded by a blank. 

WARNING: When a command is sent to the COMTAL that generates a 

COMTAL error, the COliTAL system is frozen until a manual 
<ESC> (or perhaps several) is entered from the COMTAL keyboard. 

0042 C«oio«sUBPROGRAMS CALLED: 

0643 C 

6044 C name source 1 oad remarks 


6636 C 
603 1 C 
0032 C 
0633 C 
6834 C 
6035 C 
0336 C 
0037 C 
6833 C 
0839 C 

0040 C 

0041 C 


This subroutine "CoMhaNd 2" allows a character string command to be 
sent to the COMTAL much as if the command were typed at the keyboard. 
CMMN2 is designed to be sent constant strings. 

The major differences are that the INBUF command string may include 
multiple commands, each separated by the character 

A character array buffer is used in equivalence with an integer array 
in this subroutine to illustrate the utility of the characters and 
still allow obvious compatabil i ty . 

The subroutine CMMND is very similar, only there an integer buffer 
of fixed size is used with an extra parameter to identify how many 
characters are valid parts of the intended command. 
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0045 C ■ 

0046 C LEN integgr function returns length of character string 

0647 C 

0048 C>MokLJRITTEN BY: 

0049 C 

0850 C The original code upon uhich this subroutine is based ujcs uritten 

0051 C by NETTIE D. FftULCON , JULY, 1983. 

0052 C 

0653 C5K5|o«REVIS ION HISTORY; 

6054 C 

0055 C Modified by Keith Miller, 6/18/84. 

0056 C 

605? C^iotokLOCAL VARIABLES; 

0658 C 

0059 CHARACTER>k 1 CBUFC256) ! character buffer 

D060 INTEGER IBUF(128) ! the character buffer overlayed as integers 

BSol INTEGER I2ER0 ! constant ■v'alue 0 for making a 0 byte (ZERO) 

S062 INTEGER UORDS ! counts number of words 

08S3 INTEGER NUMCHR ! counts number of bytes 

0064 INTEGER LEN ! intrinsic HP FORTRAN?? function that returns 

6065 C ! the length of a character string. 

0066 CHARACTER>kl BLANK, DOLLAR ! special ASCII characters 

006? CHARACTER>t<l ZERO ! zero is 00000000 binary. 

0668 EQUIVALENCE CCBUF,IBUF), (ZERO, IZERO) 

0069 C 

6070 C>lo(okINITIALIZATIONS; 

0071 C 

0072 DATA BLANK/' '/, DOLLAR/' $'/. IZERO/0/ 

0073 C 

6074 NUMCHR = LEN(INBUF) 

6075 C 

0676 C^^^*PROCESSING: 

007? C 

6078 DO 10 INDEX = 1, NUMCHR 

0679 CBUF( INDEX) = INBUF ( INDEX; INDEX) 

6080 10 CONTINUE 

0081 C 

6082 IF (CBLIF (NUMCHR) ,EQ. BLANK) GOTO 30 

0383 C... ELSE... 

0634 NUMCHR = NUMCHR + 1 

0085 CBUF (NUMCHR) = BLANK 

0686 C 

0087 C... ADD ENDING CHARACTERS TO COMMAND 

0088 C 

0089 30 CBUF(NUMCHR+1) = DOLLAR 

0090 CBUF(NUMCHR+2) - ZERO 
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B091 

0092 

0093 C 

0094 C... 

0095 C 

0096 

0097 C 
0096 C 

0099 C 

0100 G 

0101 C 

0102 C 

0103 C 
0164 C 
0105 C 
61Db C 
0167 C 
6168 C 

0109 C 

0110 C 

0111 
0112 
6113 C 
0114 


CBUF (NUriCHR+3) = ZERO ! safely precoulion 
NUMCHR = NUMCHR + 2 

CHANGE BYTE COUNT TO UORD COUNT 

U0RD5 •= (NUMCHR+1) / 2 ! if N is even* intentional truncation 
Programming note: 

The EXEC command parameters are discussed in the HP RTE-SATi 
Programmer's Reference Manual, 2-19 ff. The COMTAL parameters 
are discussed in section 5.2.4 of the COMTAL User's Manual. 

The first parameter to EXEC identifies it as a write command. 

The second parameter identifies the resident HP driver (3GB) 
and gives a code for the operation required by this call (500B) . 
The third parameter is the command siring, and the fourth gives 
the length in words of the buffer that is to be used. The fifth 
parameter is a code for the COMTAL interface that directs the 
command transfer. 

CALL EXEC(2, 3GB + 500B, IBUF, UORDS, 24001B) 

RETURN 

END 
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D0O1 

6602 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 
0013 

6014 

6015 
0316 
6617 
0018 

0019 

0020 
0021 
0022 
0623 
0024 
6025 
0026 
0627 
0028 
6029 
,0630 
003 1 

6832 

6833 

6834 
6335 
6036 
DCtS? 
0038 
6039 

0040 

0041 

0042 

0043 

0044 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE CrltlNDCINBUF, INCNT) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C»»K>kPftRAMETERS; 

c 


INTEGER INBUF(128) ! thQ characters of a COMTAL command string 
INTEGER INCNT ! the number of characters in command strinq 

C 

C>M«l< INTRODUCTION: 

C 

C This subroutine "CoMNaND" allows a character string comnrmnd to be 
C sent to the COMTAL much as if the command were typed at the keyboard. 

C The major differences are that the INBUF command string may include 

C nriLiltiple commands, each separated by the character Notice 

C that HUMCHR is in terms of characters (bytes), not words. INBUF 
C is an integer array to be compatable with preuiously wrilten software. 
C but an F77 character array would probably be more appropriate. 

C A character array buffer is used in equivalence with an integer array 

C in this subroutine to illustrate the utility of the characters and 

C still allow obvious compatabil ity. 

C 

C>MokLANGUAGE : 

C 

C FORTRAN 77. the HP- 1000 version for RTE-6/VM. 

C 

C>t»i:>i<L IMITATIONS: 


C 

C In order to make it easier to send single COMTAL commands to CMMND. 

C the final blank. $, and the required zero byte are added automat ical ly 

C tc the INBUF string. 

C If the last character isn't a blank. CMMND adds one. 

C However, the caller should NOT add the final $ or zero byte to the 

C string. Note that each $ in the string should be preceeded by a blank 

C 

C L.JARNING: Uhen a command is sent to the COMTAL that generates a 

C COMTAL error, the COMTAL system is frozen until a manual 

C <ESC> (or perhaps several) is entered from the COMTAL keyboard. 

CJk’kJkSUBPROGRAMS CALLED: NONE. 

C 

C 

C>h>loi<LJRITTEN BY: 

C 


0645 

0046 

0047 
6048 

0049 

0050 
8051 

0052 

0053 

0054 

0055 
0656 
6057 

0058 

0059 
0860 
6Qd 1 
6062 
6063 

0664 

0665 
0066 
6067 
6668 
0069 
0676 
6071 

0072 

0073 

0074 
6075 

■ 0076 
0077 
" 0C7S 
0379 

r r.\ n 
UCOU 

608 ). 

0082 

0383 

0034 

6085 

0686 

6037 

6088 

0039 

0090 


C The original code upon which Ihis subroutine is based was written 
C by NETTIE D. FftULCON , JULY, 19G3, 

C 

C>MokREV!SI0N HISTORY: 

C 

C Modified by Keith Miller, 6/'18/84. 

C 

C>M<*L0CAL VARIABLES: 

C 

character buffer 

the character buffer oyerlayed os integers 
constant yalue 0 for moKing o 0 byte (ZERO) 
counts number of words 
INTEGER NUtiCHR 1 counts number of bytes 

CHARACTER:I<1 BLANK, DOLLAR ! special ASCII characters 
CHARACTER>k1 zero ! zero is 00000000 binary. 

EQUIVALENCE CCBUF, IBUF) , (ZERO, IZERO) 

C 

C'i»K>:<INITIALIZATI0HS: 

C 

DATA BLANK/' '/, DOLLAR/'S'/, IZERO/0/ 

C 

NUMCHR * INCNT ! protects the input parameter, since NUMCHR is 
0 ! reassigned in the subroutine. 

C 

Cxoiot-PROCESS ING : 

C 

UORDS «= (NUMCHR+1) / 2 
DO 10 INDEX = 1, UORDS 

IBUF (INDEX) •= INBUF( INDEX) 

10 CONTINUE 
C 

IF (CBUF (NUMCHR) .EQ. BLANK) GOTO 33 
C... ELSE... 

NUMCHR = NUf-ICHR + 1 
CBUF(MUMCKR) •= BLANK 
C 

C... ADD ENDING CHARACTERS TO COMMAND 
r 

30 CBUF(NUMCHR+1) = DOLLAR 
CBUF(NUMCHR+2) = ZERO 

CBUF(NUMCHR+3) = ZERO ! safety precaution 
NUMCHR ■= NUMCHR + 2 
C 

C... CHANGE BYTE COUNT TO UORD COUNT 
C 


UHHKHUItK>Kl CBUF (256) 

INTEGER IBUF (128) 

INTEGER IZERO 

INTEGER . UORDS 
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0091 

0092 C 

0093 “C 

0094 C 

0095 C 

0096 C 
009? C 

0098 C 

0099 C 

0100 C 

0101 C 

0102 C 

0103 C 

0104 C 

0105 C 

0106 
618 ? 

0108 C 

0109 


WORDS * (NUMCHR+1) / 2 ! if N is even* intentional truncation 
Programming note: 

The EXEC command parameters are discussed in the HP RTE-6A^ 
Programmer's Reference Manual* 2-19 ff. The COMTAL parameters 
are discussed in section 5.2.4 of the COMTAL User's Manual. 

The first parameter to EXEC identifies it as a u.'ritc command. 

The second parameter identifies the resident HP driver (36B) 
and gives a code for the operation required by this call (500B) . 
The third parameter is the command string* and the fourth gives 
the length in words of the buffer that is to be used. The fifth 
parameter is a code for the COMTAL interface that directs the 
command transfer. 

CALL EXEC(2* 36B + 500B* IBUF* WORDS* 2400 IB) 

RETURN 

END 



tCOUHT T«=CB084 IS ON CR30021 USING 00012 BLKS R»0000 


0001 CGCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

0002 SUBROUTINE COUNKCOUNTS, IMAGE) 

0003 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0004 G 

0805 C>to(oi:PARAMETER DECLARATIONS; 

0006 C 

000? INTEGER>t«4 COUNTS (256) ! holds the counts for pixel values 0-255 

0008 INTEGER IMAGE ! COMTAL image number of uhich COUNTgrom is 

0009 C ! to be taKen 

0010 C 

0011 C*** INTRODUCTION: 

0012 C 

0013 C The subroutine COUNT examines each pixel value in the COMTAL 

0014 C image associated with the number IMAGE- and compiles a count of 

0015 C how many pixels hold the values 0-255. These 256 counts are 

0016 C returned in the INTEGER>M array COUNTS. 

001? C 

0018 C’K>iokLANGUAGE : 

0019 C 

0020 C FORTRAN ??- the HP- 1000 version for RTE-6/VM. 

6621 C 

0022 C>K>k*LIMITATIONS: 

0023 C 

0624 C Note that COUNTS is an INTEGER’X4 array. The 32-76? limit for INTEGER*2 

0025 C is not sufficient- since there are over 250-000 pixels in a 512 X 512 

0026 C COMTAL image. COUNT does no scaling or graphing. 

002? C 

6B28 C*>K>i<SUBPROGRAMS CALLED: 

0029 C 

0636 C name source load remarks 

6631 C 

6632 C RDIL2 E.RDIL2 ?;RD1L2 reads a horizontal line of pixels from a 

0033 C COMTAL image 

6034 C RANGE S.RANGE ?^RANGE logical function that determitjes if its 1st 

0035 C parameter is within the 2nd and 3rd parameters. 

0036 C 

0337 C::"'-:-URITTEN BY: 

0333 0 

6039 C The code on which this subprogram is based was written by 

0040 C NETTIE D. FAULCON- July- 1983. This subprogram was written by 

0041 C KEITH MILLER- July- 1984- with the support of a NASA-ASEE 

0042 C summer fellowship. 

0043 C 

0044 C>MokREVISI0N HISTORY: 
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0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 
6057 
0058 
6059 
0060 
0061 
0062 

0063 

0064 

6065 

6066 
0367 
0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 
0676 
0077 
6378 
0679 
0086 
EGol 
6032 
6633 
6684 
6635 
6686 
0087 
0668 

0089 

0090 


C . 

c 

C>tcMoKLOCftL VARIABLES; 

C 

LOGICAL RANGE ! 
C ! 

INTEGER INDEX ! 
INTEGER LBUFC512) I 
INTEGER WHICH ! 
INTEGER IMLO, IMHI! 
INTEGER ROW, COL ! 
INTEGER TERM ! 

C 

CxoiokINITIALIZATIONS: 

C 


logical function thct determines if its 1st 

parameter is within the 2nd and 3rd porameters. 

loop index <uariable 

Line BUFfer holds a row of pixels. 

changes from pixel value to count array index 

limits on COMTAL image numbers 

loop indices 

logical unit for terminal output 


DATA IMLO/1/, IMHI/4/ 
DATA • TERM/1/ 


6 

C>K>t«)<PRDCESSING 

C 


IF (.NOT. (RANGE (I MAGE, IMLO, IMHI))) GOTO 8001 ! error return 
C 

C initialize COUNTS to 0 

C 

DO 1000 INDEX * 1,256 
COUNTS (INDEX) -= 0 
1000 CONTINUE 
C 

C collect counts 

C 


DO 3000 ROW = 0, 511 

CALL RDIL2(LBUF, IMAGE, ROW) 

DO 2000 COL = 1, 512 

WHICH = LBUF(COL) + 1 ! "+1" required because pixel values are 

! 6-255, COUNTS array is indexed 1-256. 
COUNTS(UHICH) = COUNTS(WHICH) + 1 
2060 CONTINUE 
3600 CONTINUE 


RETURN 

C 

C>km<>hERROR return 

c 

8001 WRITE(TERM, 8003) IMAGE, IMLO. IMHI 
8003 F0RMAT(' IMAGE HUMBER,', 14, ', OUT OF RANGE:', 214) 
WRITE (TERM, 8901) 



0091 . 8901 FORMftK' SUBROUTINE COUNT FAILS. COUNTS ARRAY NOT CHANGED.') 

0092 RETURN 

0093 END 
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E<DELftY T=00004 IS ON CR00O21 USING 00005 BLKS R=0000 


0001 

0BS2 

0003 

0004 
6005 
0006 
000? 
0006 
0003' 
0010 
0011 
0012 
0613 

0014 

0015 

0016 
001 ? 
0018 

0019 

0020 
0021 
6022 
0623 
0024 
0625 
0026 
002? 
0026 
6329 
0030 
603 ! 
6632 
0033 
63o4 

0035 

0036 
063? 
0638 
0039 
6040 
0041 
6042 

0043 

0044 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE DELAY(SECOND) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C>kh!)«PAR(:)METER DECLfiRATIONS: 

C 

INTEGER SECOND -! the number of seconds to delcy^ >“ 0. 

C>toK* INTRODUCTION: 

C 

C This routine^ DELAY, moKes the HP busy wait for at least the 

C seconds given in the input parameters. 

C 

C>t:>k>icLANGUAGE: 

C 

C FORTRAN ??, the HP- 1000 version for RTE-6.^VM. 

C 

C>icxokL IMITATIONS: 

C 

C There is no claim that the timing here is exact. However, the HP 

C busy waits for AT LEAST the time required by the input parameter. 

C The HP EXEC for time request gives tens of milliseconds, but this 
C procedure uses the simpler seconds measure. 

C 

C The procedure will not work properly when the Julian calendar spins 
C over to 0,0, 0,0, 0,0. 

C 

C:»ok>i<SUBPROGRAMS CALLED: 

C 

C None. 

C 

C>k>kX--yRITTEN BY: 

C 

C The code on which this subprogram is based was written by 
C NETTIE D. FAULCON, July, 1983. This subprogram was written by 
C KEITH MILLER, July, 1984, with the support of a HASA-ASEE 
C summer fellowship. 

C 

Cxc>kX!REVISION HISTORY: 

C 

c 

Cx<x<*L0CAL VARIABLES: 

C 

INTEGER INTIME (6) ! the mil 1 iseconds, seconds, minutes, hours 



06-45 

0046 

0047 
0040 
0049 

0650 

0651 
6652 
0853 
6054 
0655 
0056 
085? 
0058 
6059 
0660 
0061 
0062 

0063 

0064 
8065 
0066 
086? 
0068 
0069 
06?0 
0871 
0072 
6073 

0074 

0075 
8676 
■0077 
8076' 
0079 
6086 
0031 
B6S2 
0633 


INTEGER*4 

INCNT 

INTEGER 

N0U(6) 

INTEGER*4 

NOUCNT 

INTEGER 

TIMREQ 

INTEGER 

TERM 

C 

C***INITIALI2ATI0NS: 


C 


! and Julian day when procedure entered. 

! the IN'TIME in units of tens of milliseconds 
! from 0.0, 0,0.0. 

! the milliseconds, seconds, minutes, hours, 

! and Julian day of the latest E><EC call that 
! NOU in units of tens of milliseconds from 
! 0 , 0 , 0 , 0 . 0 , 

! determines the time. 

! the EXEC number for a time request. 

! logical unit for terminal output. 


DATA TIflREO/11/ 

DATA TERh/1/ 

C 

C>i:>t<>i<PROCESSING; 

C 

IF (SECOND .LE. 0) GOTO 8001 ! error return 
C 

CALL EXEC(TIMREQ, INTIME) 

INCNT “ INTIME(l) + 100*INTIME (2) + 6000>KINTIME (3) 
1 + 360000>KINTIME(4) + 360060»<365>MINTIME(5) 

C 

1000 CALL EXECCTIMREQ, NOU) 

NOUCNT “ NOU(l) + 100 >kNOU(2) + 6000*NOU(3) 

1 + 360000>XNOU(4) + 360000>!<365>t<NOU(5) 

IF ((NOUCNT- INCNT) .LT. ( SECOND*! 00 ) ) GOTO 1000 
C 


RETURN 


C 

CxoiokERROR RETURN; 
C 


8001 UR ITE (TERM, 8003) SECOND 

8003 F0RMAT(' THE SECONDS COUNT, ', 15, ' , IS <«= 0.') 

8900 UR ITE (TERM, 8901) 

8901 F0RMAT(' DELAY FAILS. NO TIMED DELAY OCCURS.'') 
RETURN 

END 
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LDIGIT T*B0004 is on CR00021 USING 00012 BLKS R»0000 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 
0009 
0018 
0011 
0012 

0013 

0014 

0015 
00 IS 
0017 
00J8 

0019 

0020 
0021 
0022 

0023 

0024 

0025 
002S 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 
003S 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

CHARACTER FUNCTION DIGIT( INTIN ) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C>totc*PARAriETER DECLARATIONS: 

C 

INTEGER INTIN ! INTeger INput parameler, converted to o diail. 

C 

INTRODUCTION: 

C 

C DIGITS converts on integer between 0 end 9 into o single 

C character digit. If the INTIN parameter is out of range# 

C an error message is printed at the terminal and DIGIT is 

C set to a blanK. 

C 

C»to(o4_ANGUAGE : 

C 

C FORTRAN 77, the HP- 1000 version for RTE-S/VM. 

C 

C*>totcLlMITATIONS: 

C 

C The INTIN parameter must be between 0 and 9. 

C 

C>btotcSUBPROGRAnS CALLED: 

C 

C name source load remarks 

C RANGE‘S S.RANGE GRANGE logical function determines if the first parometer 

C lies within (inclusive) the next two parometers. 

C 

C>»k*URITTEN BY: 

C 

C KEITH MILLER. ASEE NASA-Longley fellow. Summer. 1984. 

C 

C>k5(o!<REVISI0N HISTORY: 

C 

c 

CJtoioKLOCAL VARIABLES: 

C 

CHARACTER>i:l DGTARAC10)! DiGiT ARrAy holds the digits 

logical RANGE ! function that determines if Us first parameter 

C ! is between (inclusive) its last two parameters. 

INTEGER TERM ! logical unit number for terminal output. 



0045 C*5toKlNITlftLI2ftTI0NS: 

0046 C 

0047 DftTft DGTftRft/'0','l','2'.'3'.'4'.'5*.'6','?','8','9V 

0048 DftTA TERM/1/ 

0049 C 

0050 G>totoKPROCESSING 

0051 C 

0052 IF (. NOT, (RANGE ( INTIN# 0# 9))) GOTO 8081 ! ©rror return 
0853 C ELSE... convert to digit ond return 

0054 DIGIT « DGTARftdNTIN 1) 

0055 RETURN 

0056 ,C 

0057 GxotokERROR RETURN 

0058 C 

0059 8001 WRITE (TERM# 8003) INTIN 

0066 8003 FORMATC'THE INPUT TO DIGrT#'# I4> 

0061 1 '# IS NOT ft SINGLE DIGIT. DIGIT RETURNS ft BLANK.') 

6662 DIGIT - ' ' 

0063 RETURN 

0064 END 

0065 
6066 
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&DSPBU T«=0eO04 IS ON CR00021 USING 00002 BLKS R«=0000 
060. 

0005 CH^'JtokPARAMETER DECLARATIONS: 

0006 C 

6668 C ' ° number 1-4 designating a COMTAL image 

0009 C>K>io« INTRODUCTION: 

0010 C 

0011 C "DiSPlay BlacK and Uhite" is a subroutine that allows the caller 

^^7 r ° display command to the COMTAL from an HP program. 

r number 1> 2, 3, 

00 5 C Z,t', fL^nction memory commands are 

tJUlD L nullified by a DSPBU call. 

6014 c 

601*8 C °" ‘° ="°"P‘ 


CxokikL IMITATIONS: 


C 

C This subroutine does NOT display truecolor images. That is 
C accomplished using the subroutine DSPCL. 

C 

C>k»<>i<SUBPROGRAMS CALLED: 

C 

C name source load remarks 

C 

C RANGE S.RANGE JiRANGE logical function that determines if the 

first parameter is within the bounds defined 
^ by the second and third parameter (inclusive). 

C>:-to!:LJRITTEN BY: 

C 

5: subprogram is based was written by' 

w he I IE D, FAULCON. July, 1983. This modification is by 
w LEITH MILLER, June, 1984 

C 

Cx«);>kREVISION HISTORY; 

C 

C 

C^xokLOCAL VARIABLES: 

C 

LOGICAL RANGE I a function for determining if an integer is 
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0845 

0046 

6047 

6048 

6049 
8050 
605r 

6052 

6053 

0054 

0055 

0056 
005? 

0058 

0059 
0068. 
6061 
0062 

0063 

0064 

0065 

0066 
036? 
0068 
0069 
8070 
6071 

0872 

0873 

0074 

0075 
0676 
6377 
0678 
0379 


0 ! uiithin a CQrtain range 

INTEGER TERM j the logical unit number for the terminal 
^ INTEGER IDUMMY! fills the place of an unused EXEC parameter 

CJtoioxINITIALIZATIONS: 

G 


DATA TERM/ 1 / 

e 

CxolokPROCESS ING 
C 


IF (RANGE ( IMAGE^ 1 » 4) ) GOTO 2066 ! legal image number 
ELSE... illegal image number 
UR I TE (TERM. 100D IMAGE 

F0RMAT( ' The image number 13. ' is out of range,') 
URITE(TERM. 1002) 

F0RiiAT( DSPBU fails. No action toKen on command.' ) 
RETURN 


2600 CONTINUE ! send a display command to COMTAL 
C 

C In the following call, the first parameter indicates a write 

C operation. The second parameter is a combination of two codes: 

C 000S + 36B. 36B indicates the proper resident driver, and 000B 

C informs the driver (DRV41) that we require a display operation. 

C The third and fourth parameters are ignored. The final parameter 
C indicates the image to be displayed. The subtraction in that 
C f inal^parameter is necessary because the COMTAL images are numbered 
C 0 to 3; the multiplication is necessary to push the image number 
C into the proper bits in the command word sent to the COMTAL 
C 

CALL EXEC (2. 000B + 36B. IDUMMY. 0. ( IMAGE- 1) »< 2) 

RETURN 

END 
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K.DSPCL T-00004 IS ON CR00021 USING 00006 ELKS R-0000 

0001 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0002 SUBROUTINE DSPCURED. GREEN. BLUE. TCLR) 

0003 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0004 C 

0005 CxoiokINPUT PARfiHETERS: 

0006 C ■ 

0007 INTEGER RED. 'GREEN. BLUE ! COMTfiL itnage numbers for the 3 color 

0000 0 ! components of the truecolor image to 

0009 c '• R® displayed. 

0010 INTEGER TCLR ! COMTfiL image number for the truecolor 

0011 0 ! image formed from RED. GREEN, and BLUE. 

0012 C 

0013 CJtotokINTRODUCTION: 

0014 C 

0015 c "DiSPlay CoLor" commands the. COMTfiL to display one 

0016 C RGB true color image, finy previous function or 

0017 C psucdocolor memory commands are nullified. See the 

00)8 C subroutine DSPBU to display black and uhito images. 

0019 C 

0020 C The color display is accomplished via the CMMND subroutine. 

0021 C which allows COMTfiL commands to be sent to the COMTfiL as if 

0022 C they were typed on the COMTfiL keyboard. 

0023 C 

0024 C>»k>KLfiNGUfiGE : 

0025 C 

0026 C FORTRAN 77. the HP- 100 version for RTE-6/VM. 

0027 C 

0028 C>totoKL IMITATIONS: 

0029 . 

0030 C The three paramefers RED. GREEN and BLUE must be distinct and 

0031 C within the IMLO. IMHI range. TCLR must be within the TRLO. TRHI 

0032 C range (which is mutually exclusive with IMLO-IMHI). The limits on 

0033 C truecolor numbers are orbitrary. However, this subroutine enforces 

0034 C the arbitrary limits. The HP image file must contain all three 

0035 C monochome imoges in the order RED. GREEN, and BLUE. 

0036 C 

003? C’totoi^SUBPROGRAMS CALLED: 

0038 C 



0039 

C 

name 

source 

load 

remarks 


0040 

C 






0041 

c 

RANGE 

&RANGE 

GRANGE 

logical function that determines if the 1st 


0042 

c 




argument is tiithin the 2nd and 3rd inclusiv.'e. 

» ' 

0043 

c 

CMMND 

8 .CMMND 

%CMMND 

transfers a command string to the COMTfiL. uJhich 


0044 

c 




accepts it almost as a keyboard command. 
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0045 

0040 

0047 

0040 

0040 

0050 

0051; 

0052 

0053 

0054 

0055 

0056 

0057 
0050 

0059 

0060 
6861 
0862 

0063 

0064 

0065 

0066 
0067 
0060 

0069 
0670 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0070 

0079 

0080 
0081 
0082 
6083 

0084 

0085 

0036 

0037 
0088 

0089 

0090 


C DIGIT &DIGIT ^DIGIT character*! function thot returns o single digit 
^ on legal integer inputs 0-9. 

C 

E»oiokurITTEN BY; 

C 

^ T he code on uhich this subprogram is based was written by 
E NETTIE D. FAULCON* July. 1983. This subprogram uos written by 
C KEITH MILLER. July. 1984. with the support of o NASA-ftSEE 
G summer fellowship. 

E 

EJtotokREVlSION HISTORY: 

E 

C 

E>Mc*LOCAL VARIABLES: 

E 

INTEGER IBUF(256) 

LOGIEAL RANGE 


INTEGER 

INTEGER 

INTEGER 


IMLO. IMHI 
TRLO. TRHI 
T^RM 


! buffers EOMTAL command 

1 logical function that determines if 1st parameter 
is between 2nd and 3rd. inclusive, 
limits on EOMTAL bS.w image numbers, 
limits on EOMTAL truecolor image numbers, 
logical unit for terminal output 


E 

E 


EHARAETER*255 EBUF ! character overlay for sending EOMTAL commands 
EQUIVALENCE (EBUF. IBUF) 

CHARACTER*! DIGIT ! function that returns '0'.'1'.,.. or'9'. 

! according to 0.1..... or 9 integer Input. 


C***INITIALIZATIONS: 

C ■ 

DATA IMLO/1/, IMHI/4/ 

DATA TRLO/5/. TRHI/^/ 

DATA TERM/1/ 

C 

C***PROCESSING 

C 

IF (.NOT. (RAHGEfRED .IMLO. IMHD)) GOTO 8001 ! error return 

IF, (.NOT. (RANGE (GREEN . IMLO. IMHI )) ) GOTO 8101 ! error return . 

IF (.NOT. (RANGE (BLUE . IMLO. IMHI) ) ) GOTO 8201 ! error return 

C 

IF ((RED .EO. GREEN) .OR. (GREEN .EQ. BLUE) 

1 .OR. kRc.D . . BLUE)) GOiO 6301 ! error return 


C 

C 

c 


IF (.NOT. (RANGE (TCLR. TRLO. TRHI))) GOTO 8401 ! error return 
DISPLAY THE COLOR IMAGE 

The following commands are abbreviations of the followHng 
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0091 

-fi092 

0093 

0094 

0095 

0096 
B097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 
B105 
0106 
010? 
0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 
011 ? 
0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 
012 ? 
0128 

0129 

0130 

0131 


C 

C 

t 

c 

c 

c 


CONTftL cofwnands, uhcrc and *C stands for the singl 

character digits corresponding to RED, GREEN, BLUE, and TCLR: 
UHassign Image 

ftSsign Truecolor ■*C red #R green #G blue ^ 

Display Image -«C 

CBUF * 'UN I ^ //DIG IT (TCLR) 

CALL CMMND(IBUF,6) 

CBUF - 'AS T '//DIGIT(TCLR)//' '//DIGIT(RED)//' '// 

1 DIGIT(GREEN)//' '//DIG IT (BLUE) 

CALL CMiND(IBUF,12) 

CBUF •> 'D I '//DIG IT (TCLR) 

CALL CmND(IBUF,5) 

RETURN 


C>toM«ERR0R RETURNS 
C 

8001 URITECTERM, 8B03) RED, IfILO, IMHI 

8003 If^GE NUMBER,', 13,', IS OUT OF RANGE:', 214,' .') 

C 

8101 URITE(TERM, 8103) GREEN, IMLO, IMHI 

8103 F0RMAT(' GREEN IMAGE NUI-BER, ' , 13, ' , IS OUT OF RANGE:', 214 ' ') 
C 

8201 URITECTERM. 8203) BLUE, IMLO, IMHI 

8203 F0RMAT(' BLUE IMAGE NUMBER, ', 13, ' . IS OUT OF RANGE:' 214 ' M 
GOTO 8900 j 

C 

'8381 URITE(TERM, 8303) RED, GREEN, BLUE 

8303 FORMATC' 3 MONOCHROME IMAGES MUST BE DISTINCT. YOURS" 314) 
GOTO 8900 ' 

C 

8401 URITE-CTERM, 8403) TCLR. CLLO, CLHI 

8403 FORMATC' YOUR TRUECOLOR IMAGE. ', 14, ' , IS OUT OF RANGE:',2I4) 
GOTO 6900 ' 

C 


8900 URITECTERM, 8901) 

8901 FORMATC' DSPCL FAILS. NO DISPLAY TAKES PLACE ') 
RETURN 

END 



8.DSPGR T-00004 IS ON CR00021 USING 00012 BLKS R*000O 


till ^^^^^^^^^^^^^^^^^^^^^^^^cccccccccccccccccccccccccccccccccccccccccccccc 

0002 SUBROUTINE DSPGR(GRNUm 

6603 cccccccccccccccccccccccccccccccccccccccccecccccccccccccccccccccccccccc 


0005 C>Moi<PftRAM£TER DECLARATIONS: 

0006 C 

0008 C 1-4 designating a COMTAL grophics plone 

0009 C>iotokIi<TRODUCTION: 

0010 C 

0011 C "DiSPlo-y GRaphics" is a subroutine that allous the coller 

III- r ° display command to the COMTAL from an HP proqram. 

m.6 C The call can turn on one graphics plane, number 1. 2. T. 

0414 C or 4. 

0.015 C 


0016 Csoh*L IMITATIONS: 

0617 C 

0018 C This subroutine does not turn off previous graphics planes. 

Bu^9 C That is accomplished using the subroutine UIPGR. 

00p C It is OK to call DSPGR repeatedly without an intervening UIPGR. 

^ effect, but they don't hang up the COrTTAL. 


0623 

0624 

0625 
0026 
0627 
0023 

, 6629 
6046 
0331 

0032 

0033 

6035 

0036 

0037 
003B 

0039 

0040 

0041 

0042 

0043 

0044 


C>ioioxSUBPR0GRAMS CALLED: 


r 

C 

C 

f- 

U 

C 

c 

c 

c 

c 


name source lood remarks 


RANGE 


CMMN2 

DIGIT 


8.RANGE :^RANGE logical function that determines if the 

first parameter is within the bounds defined 
*^y second and third parameter (inclusive), 
S.CMMN2 %CMMN2. sends a constant string to the COMTAL as if 
the string were typed on the COMTAL keyboard. 
8.DIGIT ?iDIGIT charbcter*! function thot returns *0'..'9' 
according to integer input 0..9. 


C;:w:;:o..L,J3 ITTEN BY: 

C 

C The code on which this subprogram is based was written by 
C NETTIE D. FAULCON. July. 1983. This modification is bu 

C KEITH MILLER. June. 1984. " 

C 

C>Mo('.REVISI0N HISTORY: 

c 

CjmokLOCAL VARIABLES: 
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c . 


0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 
6654 
0655 
0056 
605? 

0058 

0059 

0060 
6061 
0062 
0863 
6664 
0065 
0056 
006? 
0068 
6069 

0070 

0071 

0072 

0073 
0674 
0075 
0676 
■007? 


0 function for determining if an integer is 
uithin a certain range, 
the logical unit number for the terminal, 
fills the place of. on unused EXEC porameter 
limits on a graphics plane number, 
function that returns '0'..'9' for input 
integers 0..9. 


data GRL0/1/.GRHI/4/ 

C 

C»o(o)cpROCESSING 

C 

IF ( . NOT. (RANGE (GRNUM. GRL0» GRH I ) ) ) GOTO 8001 ! error return 
C 

C “ADD GRaphics #GRNUM"* 'uhere *GRNLIM stcndr for the digit 

^ corresponding to GRNUM uolue. 

C 

CALL CMMNZC'ADD GR ' /'/DIG IT (GRNUM) ) 

RETURN 

C 

C>ioiokERROR RETURN: 

C 

8001 URITE(TERM. 8003) GRNUM, GRLO, GRHI 

8003 FORMAT( ' THE GRAPHICS NUMBER, 13, ' , OUT OF RANGE: ',214) 

C 

8900 WRITE (TERM, 8901) 

6901 F0RMAT( ' DSPGR fails. No action token on command.' ) 

RETURN 

END 


LOGICAL RANGE 

C 

INTEGER TERM 
INTEGER I DUMMY 

INTEGER GRLO, GRHI 

CHARACTER>kl DIGIT 
C 
C 

C>toiokINITIALI2ATI0NS: ■ 

C 

DATA TERM/1/ 



8.DSPVD T=00004 IS ON CR00021 USING 00024 BLKS R=0000 


0001 

0002 

0003 

0004 

0005 

0006 
000? 
0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 
001 ? 
0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 
002 ? 
0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 
003? 
0033 

0039 

0040 

0041 

0042 

0043 

0044 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccCccccccccc 

SUBROUTINE DSPVD 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccCccccccccc 

c 

C>kh<>KINPUT PARAMETERS: 

C 

C None. 

C 

C>K>k>k INTRODUCTION: 

C 

C "DiSPlay ViDeo" commands the COMTAL to display the video image 
C which, by arbitrary convention, is always assigned to COMTAL 

C image #5. The video must be set to image 5 previous to this 

C cal I . 

C 

C>M<*LANGUAGE: 

C 

C FORTRAN ??, the HP- 100 version for RTE-S/'VM. 

C 

C>l«K>KL IMITATIONS: 

C 

C The COMTAL image #5 must have been set to video before DSPVD is called 
C 

CxolokSUBPROGRAMS CALLED: 


c 

c 

c 

name 

source 

1 oad 

remarks 

c 

c 

CMMND 

aCMMND 

J^CMMND 

transfers a command string to the COMTAL, u^iich 
accepts it as a keyboard command. 

c 

c 

c 

DIGIT 

G.DIGIT 

J^DIGTT 

charactersKl function that returns '0'-'9' 
according to integer input 0-9. 


C>K>k>KlJRITTEN BY: 

C 

C The code on which this subprogram is based was written by 
C NETTIE D. FAULCON, July, 1983, This subprogram was written by 
C KEITH MILLER, July, 1984, with the support of a NASA-ASEE 
C summer fell o wsh i p . 

C 

C?ldokREVISI0N HISTORY: 

C 

C 

C>K>K)kL0CAL VARIABLES: 

C 
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6045 

0846 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 


INTEGER IBUF(256)! buffers COMTfiL command 

CHARACTER>!!255 CBUF ! character overlay for sending COMTftL commands 
EQUIVALENCE (CBUF. IBUF) 

INTEGER TVIMftG ! COMTAL image 'r for video camera 

CMARACTER>lN DIGIT ! function that returns '0'-'9' according 

C ! to integer input 0-9. 

C 

C>:!>K>;!lNITIALIZATIONS: 

C 


DATA TVIMAG/5/ ! arbitrary choice. 

C 

C>l»lokPR0CE5SING 

C 

C DISPLAY THE VIDEO IMAGE 
C 


CBUF = 'DISPLAY IMAGE '//DIGITCTVIMAG)//' ' 
CALL CMMNDUBUF. 161 


RETURN 

END 


51 



8.HIL0 T-00004 IS ON tR00021 USING 00004 BLKS R-0000 


0001 

0002 

0003 

0004 

0005 

0006 
000 ?' 
0008 

0009 

0010 
0011 
0012 
'0113 

0014 

0015 

0016 
001? 
0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 
002? 
0028 

0029 

0030 

0031 

0032 
0833 

0034 

0035 

0036 
063? 
0638 

0039 

0040 

0041 

0042 

0043 

0044 


-CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

SUBROUTINE HILO (HI, LO, IMAGE) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C5toK*PARAMETER DECLARATIONS: 

C 

INTEGER HI, LO ! ouipul parameters, the high and low pixel values 
C ■ ! found in -the designated image. 

INTEGER IMAGE ! -the COMTAL image number of the image that Is to 
C ! be searched for its high and low pixel values. 

C>t«oKlNTR0DUCTI0N: 

C 

■C The subroutine 'HIgh-ond LOu values ♦2* reads through an image and ^ 

C determines the highest and lowest pixel values, returning the 

C values found. HILO scans the entire image. 

CitotoKLANGUAGE: 

C 

C FORTRAN 7?, the HP- 1000 version for RTE-6A'M. 

C 

C>totokLIMITATI‘ONS: 

C 

C As noted above, this subroutine passes through an entire image, pixel 

C by pixel. In some applications you may want to combine other processing 

C during that pass, but this subroutine won't let you do that 
C 

GstowcSUBPROGRAMS . CALLED : 

C., . 


name 

source 

load 

remarKs • 



RANGE 

GRANGE 

GRANGE 

logical function that determines 
is within 2nd & 3rd inclusive. 

if 1st 

argument 

RDIL2 

aRDIL2 

?SRDIL2 

reads a horizontal line of pixel 
a 512 integer array. 

values 

into 


C>totoKLJRITTEN BY: 

C 

C The code on which this subprogram is based was uriiten by 
C NETTIE D. FAULCDN, July, 1983, This subprogram uos :,jritten by 
C KEITH MILLER, July, 1984, ojith the support of a NASA-ASEE 
C summer fellowship. 

C 

C>ioiokREVISI0N HISTORY: 
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6045 

ee4e 

0047 

0040 

0049 

0050 

0051 

0052 

0053 

0054 
6055 

0056 

0057 
0050 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 
0067 
0060 
6069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0030 

0031 

0032 
0633 
0034 
0635 
0086 

0087 

0088 

0089 

0090 


C 

c 

C***LOCftL VARIABLES: 

C 

INTEGER IBUF<512) 1 buffer for o horironlol row of COMTAL pixel values 
INTEGER PXLO* PXHI! pixel value limits (for 8 bits* 0-255) 

INTEGER ROD, COL I indexes into the COMTAL image 
integer LNLO* LNHI I limits on COMTAL imoge line numbers 
INTEGER ARALO. ARAHI ! limits on buffer orray dimension 
INTEGER IMLO* IWI 1 limits on COMTAL image numbers. 

LOGICAL RANGE ! function that determines if 1st argument is within 
C ! 2nd & 3rd orguments inclusive. 

C 

C>»*«cINITlAL12ATI0NS 

C 

DATA 111.0/1/, lMHI/4/ 

DATA PXLO/0/, TXHl/255/ 

DATA LNLO/0/, LNH 1/511/ 

DATA ARAL0/1/,ARAHI/512/ 


C 

CshtoKpROCESS ING 

c ■ 

IF (.NOT. (RANGE (IMAGE. IML0,IMHI))) GOTO 8001 ! error return 
C 

HI = PXLO ! artificially low 
LO “ PXHI ! artificiollu high 
C 

DO 2000 ROD «= LNLO, LNHI .. 

CALL RDIL2(IBUF, IMAGE, ROU) 

DO 1000 COL ■» ARALO, ARAHI 

IF (IBUF(COL) .GT. HI), HI « IBUF(COL) 

IF (IBUF(COL) .LT. LO) LO « IBUF(COL) 

1000 CONTINUE 
2000 CONTINUE 
C 

RETURN 

r- 

u 

8001 WRITE (TERM, 3883) IMAGE .IMLO.IMHl 

8083 FORMATC' IM4GE NUMBER. 15, ' , IS OUT OF RANGE: ' ,215, ' ') 
GOTO 8908 


C 

8900 WRITE (TERM, 8901) 

8901 FORMAT (' HILO FAILS. 
RETURN 

END 


HI AND LO PARAMETERS UNCHANGED.') 
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&HISTO T«00004 IS ON CR00021 USING 00005 BLKS R*=0000 

000 1 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCGCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCGCCC 

0002 SUBROUTINE HISTO(IMAGE) 

0003 CCCCCCCCCCCCCCCCCCCGCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCXCCC 

0004 C 

0005 C>*ow»cPARAriETER DECLARATIONS: 

0006 C 

0007 INTEGER IMAGE ! the COMTAL image number lo laKe the histogram of. 

0008 C 

0009 C>toio*cINTRODUCTION: ■ 

0010 C 

0011 C The subroutine HISTOgram uses the COMTAL "function memory* (a looK-up 

0012 C table) to construct xj histogram of the given image, which is held 

0013 C, IN A SCALED VERSION in the function memory associated with IMAGE. 

0014 C This histogram is displayed by HISTO. 

0015 C 

0016 C>)otokLANGUAGE: 

0017 C 

0018 C FORTRAN 77, the HP- 1000 version for RTE-G/VM. 

0019 C 

0020 C»(o*okL IMITATIONS: 

0021 C 

0022 C The function memory associated with image number IMAGE is destroyed. 

0023 C IMAGE must be within the boundaries for COMTAL image memories, or 

0024 C an error message is given and HTABLE is unchanged. 

0025 C 

0026 C Notice that the histogram is scaled so that the largest value reaches 

0027 C to the top of the screen when displayed. Thus, no absolute counts can 

0028 C be easily deduced from the function memory values. See the subroutine 

0029 -C COUNT if absolute pixel value counts are desired. 

0030 t ' 

0031 C HISTO puts the HP into a busy 'wait while the COMTAL determines the 

0032 C histogram. Otherwise, the COMTAL ignores subsequent CMMN2 commands. 

0033 C 

0034 Cx<**SUBPROGRAMS CALLED: 

0035 C 

0036 C name source load remarKs 

0037 C 

0638 C CMMN2 &CMMN2 JiCMMN2 sends a constant string to the COMTAL, which 

0039 c treats it as a command typed on the COMTAL. 

0040 C DELAY e.DELAY ?^DELAY puts the HP into a busy wait for at least the 

0041 C given number of seconds. 

0042 C DIGIT 8.DIGIT %DIGIT character>Kl function that returns '0'-'9* 

0043 C according to integer input 0-9. 

0044 C RANGE E.RANGE JiRANGE logical function that determines if its 1st 
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argumenl lies within its 2nd and 3rd, inclusive. 


DtoKXcLJRITTEN BY: 

C 

C The code on which this subprogram is based was written by 
C NETTIE D. FAULCON, July- 1983. This subprogram was written by 
C KEITH MILLER- July- 1984- with the support of a NflSft-flSEE 
C summer fellowship. 

C 

C>tolokREVISION HISTORY: 

C 

C 

CiloioKLOCftL VARIABLES: 

C 

CHARACTER’Kl IMCHAR ! the single digit character corrcspoi 


CHARACTER»h1 DIGIT 


LOGICAL 

INTEGER 

INTEGER 


RANGE 

TERM 


! the single digit character corresponding to 
! input parcmwter IMAGE. 

! function that returns •'0'-’'9* for ^integer 
! input 0-9. 

! function that determines if 1st argument is 
! within 2nd and 3rd- inclusive. 

! logical unit for terminal output. 


IMLO-IMHI ! limits for IMAGE number. 


C^totok I N I T 1 AL 1 2AT I ONS : 

C 

DATA TMLO/1/- IMHI/'4/ 

DATA TERM/1/ 

C 

CimtokPROCESSING: 

IF (.NOT. (RANGECIMAGE- IMLO-IMHI))) GOTO 8001 ! error return 

C'" ' 

IMCHAR = DIGIT(IMAGE) ! delay initialization until after IWGE 
r ! has been found to be within its limits. 


The following COMTAL command expands to: 

Function memory ‘S'l “ Histogram of image 
where "S'! is the single digit associated with IMAGE. 

Image *1 is automatically used for the histogram. 

CALL CMMN2('F '//IMCHAR//' H') 

While the COMTAL compiles the histogram, it ignores all HP 
commands; thus- we pause until the histogram is found. 

CALL DELAYC15) ! 14 seconds experimentally determined as the 
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B891 

0892 

01093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0161 
0102 
0103 


0 ! lime it toKes to compile o histogram. 

CALL CMilN2('D F '//inCHAR) ! "Display Function memory #1* 
RETURN 
C 

C«oio!«ERR0R RETURNS: 

C 

C 

8001 WRITE (TERM, 8003) IMAGE ,IML0,IMHI 

8003 FORMAT (' THE IMAGE HUMBER, 15, ' , IS OUT OF RANGE: ' ,215, '.' ) 

8900 WRITE (TERM, 8901) 

8901 FORMAT (' HISTO FAILS. HO HISTOGRAM TABLE ASSIGHMEHT. ' ) 

RETURN 

END 
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8.IC0PY T«00004 IS ON CR00021 USING 00012 BLKS R-0000 


ccccccccccccccccccccaxccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE ICOPY(OUTIMG, INIMG) 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCGCCCCCCCCCC' 

C»0)okINPUT PftRfiMETERS: 

C 

I CQmfil image number for the destination 
^ INTEGER INIMG ! COMTAL image number for the source 

C*>lokINTRODUCTION: 

C 

C Mmage COPY" commonds the COMTAL ’to -copy xjne Jslock and 
C <jhi-le image ^ntc -onother. The 0UTI11G destinotion image 
C IS, of course, uipcd out by this exchange. The input 

r O'Jtput image must be associated with 

L a CunTRL image memory plane (1-4 currently). 

C The companion subroutine ICPY2 requires that the OUTIMG 

C bc^a COMTAL image memory plane, but the INIMG can be in the range 

C 

C>to(oll.ftNGUAGE : 

C 

C FORTRAN 77, the HP- 100 version for RTE-6/VM. 

CHoiokL IMITATIONS: 

C 

C ICOPY only uorks for the grey level images of COMTAL, not the 
•-L, truecol or imaqes. 

C ‘ 

C>toioKSUBPROGRAMS CALLED; 

C 

C name source load remarks 


CMMND 8.CMMND JJCMMND 


RANGE &RANGE GRANGE 


DIGIT 8.D1GIT «DIGIT 


C»o)o|<IJRITTEN BY: 


this subroutine takes an INTEGER array which 
contains a COMTAL command string, and transfers 
the command to COMTAL. The second parameter 
gives the choracter count of the command string, 
this logical function determines if its first 
argument is within the bounds formed by its 
last 2 arguments, inclusive. 

characterw<l function that returns a single digit 
0 - 9 according to integer input 0-9, 
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0045 

0046 
■0047 

0048 

0049 

0050 
8051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 
8060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 
0073 

6079 

6080 
6081 
6032 

6383 

6384 
6085 
0086 
0087 
-0088 
0689 
0090 


C 

C The code on uhich ihis subroutine is based was written by 
C NETTIE D. FAULCON in July« 1983. This tnodif ication is by 

C KEITH MILLER June, 1984. 

C 

CjmokREVISION HISTORY: 

C 

c 

C>woilOCftL VARIABLES: 

C 


c 

c 

c 

c 


LOGICAL 

CHARACTER:*tl DIGIT 

CHARACTER«255 JCCOMM 

INTEGER 
EQUIVALENCE 


RANGE ! function determines if 1st argument is 
! within 2nd and 3rd argument inclusive. 

! function returns '0'-'9' according to 
! Integer input 0-9. 

I t5haract«r Jsuf fer for building up..ax«ll 
! to the CMMND subroutine. 

IBUF (1285! integer overlay of CCOMM 
(CCOMM, IBUF) 


INTEGER IMLO, IMHI ! the range of legol COMTAL image numbers 
INTEGER TERM ! terminal logical unit 

C 

C*5(ot<INITIALI2ATI0N: 

C 


DATA IMLO/l/, IMHI/4/ 

DATA TERM/1/ 


C 

CJKXokPROCESSING: 

C 


C 

C 

C 

2000 
C • 

C 

C 

C 

C 


IF (.NOT. (RANGE (OUTIMG, IMLO, IMHI))) GOTO 8001 ! error return 
IF (.NOT. (RANGE (IN IMG, IMLO. IMHI))) GOTO 6101 ! error return 

Legal image numbers, so do the copy 

CCOMM = 'IMAGE '//DIG IT(OUTIMG)//' »= IMAGE '//DIGIT( INIMG) 

PROGRAMMING NOTE: see COMTAL USER'S GUIDE for 
further information on the command string abbreviated 
in the string above. 


CALL CMMND ( IBUF, 17 ) ! sends copy command to COMTAL 
RETURN 


C 

C>toK*ERR0R RETURNS: 
C 


6001 WRITE (TERM. 8003)OUTIMG, IMLO, IMHI 
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0091 8003 FORtiflTC' YOUR OUTPUT PfiRfilTTER,', 15.', IS OUT OF RftNGEi',214) 

«092 GOTO 8900 

0093 X 

0094 8101 URITE(TERM, 8103)INIMG, IMLO, IMHI 

0095 8103 FORMfiT(' YOUR INPUT PARAMETER,' ,15, IS OUT OF RANGE:', 214) 

0096 GOTO 8900 

0097 C 

0096 8900 URITECTERM, 8901) 

0099 8901 FORMAT(' ICOPY FAILS. NO COPYING TAKES PLACE.') 

0100 RETURN 

0101 END 



8.ICPY2 T-000B4 IS ON CR00021 USING 00018 BLKS R«0000 


0001 

0002 

0003 

0064 

0005 

8006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 
0027 
0628 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 
0644 


tcccccccecccccccccccccxcccccccccccccccccccccGccccccccccccccccccccccxcc 

SUBROUTINE ICPY2(0UTIMG, IN IMG) 

cccccccccccccccccccccceccecccccccccccccccccccccccccccccccccccccccccccc 

c 

C>to)oxlNPUT PARAMETERS: 

c 

INTEGER OUTIMG ! COMTAL image number for the destinolion 
INTEGER INIMG ! COMTAL image number for the source 
C 

CjwokINTRODUCTION; 

c 

C ■Image CoPY *2 ■ commands the COMTAL to copy one blacK and 
C ^dmage into?anoi+ier. The OUTIIIG destination inioge 

C is* ■of course* uiped out by this exehonge. The input 
C image -for ICPY2 can be any single digit number; the output 

C image must be a COMTAL image memory plane (1-4 currently). 

C The companion subroutine ICOPY requires that both images 
C be COMTAL image memory planes. 

C 

DmokLANGUAGE: 

C 

C FORTRAN 77* the HP- 100 version for RTE-6AW. 

C 

C^toiokL IMITATIONS; 

C 

C ICOPY only >JorKs for the grey level images of COMTAL* not the 
C truecolor images. 

."C 

ii>MokSUBPROGRAMS CALLED: 

C 

C name source 1 oad remarKs 

C CMMND 8.CMMND ^CMMND this subroutine toKes an INTEGER array which 

C contains a COMTAL command string* and transfers 

C the command to COMTAL. The second parameter 

C gives the character count of the command string 

C RANGE 6.RANGE GRANGE this logical function determines if its first 

C argument is within the bounds formed by its 

C last 2 arguments* inclusive. 

C DIGIT 8.DIGIT %DIGIT character*! function that returns a single digi 
C according to integer input 0-9. 

C 

C***IJRITTEN BY: 

C 
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0045 C The code on which this subroutine is taosed was written by 

004S C NETTIE D. FAULCON in July, 1983. This modification is by 

004? C KEITH HILLER , June, 1384. 

0048 C 

0049 C>WtoKREVISION HISTORY: 

0050 C 

0051 C 

0052 C>totoKLOCAL VARIABLES: 

0053 C 

0054 LOGICAL RANGE ! function determines if 1st argument is 

0055 C ! within 2nd and 3rd argument inclusive. 

0056 CHARACTERJiH DIGIT ! function returns '0'-'9' according to 

005? C ! integer input 0-9. 

0058 CHARACTER>t<255 CCOMH ! character buffer for building up a call 

0059 C ! to the CHMND subroutine. 

0060 INTEGER IBUF (128) ! integer overlay of CCOMH 

0061 EQUIVALENCE (CCOMH, IBUF) 

0062 C 

6663 INTEGER IHLO, IMHI ! the range of legal COHTAL image numbers 

6064 INTEGER TERM ! terminal logical unit 

0665 C 

0066 C:io(oXlNITIALIZATION: 

006? C 

0068 DATA IMLO/1/, IMHI/4/ 

6069 DATA TERM/1/ 

00?0 C 

00? 1 C>K>iorPROCESSING: 

06?2 C 

03?3 IF (.NOT. (RANGE(OUTIMG, IHLO, IMHI))) GOTO 8001 ! error return 

0074 IF (.NOT. (RANGEdNIMG, 1, 9 ))) GOTO 8101 ! error return 

0075 .t 

0876 C Legal image numbers, so do the copy 

007? C 

0078 2000 CCOMM = 'IMAGE '//DIGIT(OUTIMG)//' = IMAGE '//DIGIT( INIMG) 

0079 C 

0030 C PROGRAMMING NOTE: see COHTAL USERS GUIDE for 

0031 C further information on the command string abbreviated 

0332 C in the string above. 

0083 C 

0034 CALL CHMND ( IBUF, 17 ) ! sends copy command to COMTAL 

6085 RETURN 

0386 C 

0087 C^hwCRROR RETURNS: 

0088 C 

0089 8001 URITEfTERM, 8003)OUTIMG, IMLO, IMHI 

6090 8003 F0RMAT(' YOUR OUTPUT PARAMETER,', 15.', IS OUT OF RANGE:', 214) 
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0091 GOTO 8900 

0092 C 

0193 8101 URITEOERIi, 8103) IN IMG 

0194 8103 FORMflTC' YOUR INPUT PARfiMillR, ' > I5> ' > IS OUT OF RANGE: 1, 9') 

ills GOTO 8900 

0191 c 

009? 8900 URITE(TERM, 8901) 

0098 8901 Format (' icpy2 fails, no copying takes place.') 

0019 RETURN 

0103 END 


62 



&r;ZRbE T=CBG04 IS ON CROBBEl USING 00005 BLKS R=G000 


8801 

60G2 

0003 

CiE04 

G0C5 

OBOS 

BOB? 

0CBC 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE MERGE (OUTURD, BYTEl, BVTEZ) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

L. 


C>^'.'^c*P^:lRft^ETER DECLftRATIONS : 

c 


INTEGER 

INTEGER 

INTEGER 


OUTLJRD 

B^TE1 

BYTE2 


i hT* V 2 friP’ji 'riio 1 

h?cih ordfPr inpji (in 1 owrnr byi.?0 . ' 

th? riyht, orcii?r inpb'i by (9 (in lo;.-j?r by{<?). 


C5^c^okI^^TR0DUCTI0N: 

C 

C Tbs subroutine MERGE tcKes two integer inputs which should be non-rero 

C in the lower byte only, end merges these lower order bytes into a sinnle 
C integer output. 

C 

C>^t>i<>:iANGUfiGE: 

C 

C FORTRAN 77 , the HP- 1000 version for RTE-G/VM. 

C 

IMITATIONS: 

C 

C Note thcit MERGE does not check that the upper order byte of the 
C input ^INTEGERS are zeros. This check could be added, but will clow 

. down MaRGE execution. This speed is important, since MERGE was designed 
L tO be a verii low level routine. 

C 

C>^-»oi:SUBPROGRAMS CALLED: 

C none . 

w 

C!i"i«M.IRITTEH BY: 

C 

C The code on which this subprogram is based was written by 

“ July, 1933. This subprogram was written by 

C l'.EIiH MILLER, July, 1984, with the support of a NASA-ASEE 
C summer f o 1 1 oush i p . 

C>!"Io:cREVISI0N HISTORY: 


C>t:>l«:L0CAL VARIABLES: 

C 

INTEGER IHOLD ! an INTEGER interpretat ion of bits 
CHARACTER CH0LD(21 ! a CHARACTER interpretat ion of bits 
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GLi2^D 

ec^r 

0049 

0:030 

G.BBl 

6052 

00:53 

c ^:04 

BiiOi 

B05G 

BOB? 

O 05 S 

6055 

6009 

Boo 1 

60 J 2 

6063 

60:04 

BOOS 

BOSS 

GCS? 

BOO? 


B 

INTEGER IhERGE ! an INTEGER iriterpretfll ion of, bits 
^ CHARABTER GSPLITC2)! a GHARABtER interphetal ion Of bits 

^ EQUIVALENCE (IHOLl). GHOLD). (il1ERGE> CSPLif) 

N ITI AL IZATIONS : none. 

G 

G 

C::-::M:PR 0 CESSING: 

C 

I HOLD = BYtEl 
GSPLlt(l) = GHOLD (2) 

I HOLD BYTE2 

CSPLlt(2) = GHOLD (2) 

DLITIJRD = I MERGE 
C 

RETURN 

END 
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C.KOr!N'_ T=0e604 IS ON CR00021 USING G0004 BLKS R=08G0 


000: 
6C' J2 
G033 
0CO4 
6005 
G6CC 
DC'j? 
6CC:j 
6C03 
C6 iO 
6011 
GG12 

r-n 

cu 1 4 

r ^ 

mis 

6017 
6618 
69 IS 
662B 
6621 
6022 
6623 

6024 

6025 
6G2o 
6027 
6628 
6623 
60 20 
6031 
C622 
62 23 
6024 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE NORMU IMAGE) 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccCc 

c . 

C*-*PftRftiiETER DECLARATIONS: 

C 

INTEGER IMAGE ! designalcs a COMTAL imcgs io "norrtal ire '' (see belcu) 

C>i:>i<>l<IIJTR0DUCTION: 

C 

The subroutine NORMoL searches through an image to find its lowest 
pixel lualue. Then NORML replaces each pixel in the image 
(call that -uaiue X) with the <ualue (X - low). This subroutine was 
developed to obtain an image of the variations inherent in the lighting 
table that should give a constant background light, but is instead giving 
a light with a variation of as many as 10 grey scale levels out of 255. 
ihe ''normalized" background image is subtracted from the digitized image 
to simulate a uniform background. 


CxokJtlANGUAGE : 

C 

C FORTRAN ??, the HP- 1600 version for RTE-6/VM. 

C 

C>!:>;oil IMITATIONS: 

C 

This subroutine makes two passes through the image, one to obtain the 
lowest pixel value, and one to write out the new pixel values. In some 
oppl icat ions, the programmer may want to add new processes during one 
of those passes. Also, the subroutine HILO is used here, even though 
only the lowest value is required. To optimize, create c new subroutine 
which only determines the low value. 


C::4c;:?SUBPR0GRAM3 CALLED : 
C 


r: .-.c 


nanri3 

source 

1 oad 

remarks 







'* • 


I a * i 1-4:' 


:-'6j:L2 

roaas one h 

L. ... o iJ 

c 




an integer . 

6523 

C 

L.JPIL2 

G.L.JPIL2 

XUR1L2 

writes one 1 

6.046 

C 




an integer i 

604 1 

c 

HILO 

dHILO 

XHILO 

determines 

6542 

c 




in an image 

C543 

c 





6644 

C>:“ 

:«;'L.JRITTEN 

BY: 




■— i.v,:'c:o 1 ine into 


image line from 
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&C43 C 

B346 C The code on which this subprogram is based was written by 
OC'-f' C HETTIE D. FfiULCON* July^ 1983. This sutaprogram was written by 

6C-;3 C KEITH MILLER, July, 1984, with the support of a NASft-ASEE 

6E49 C Summer fellowship. 

£553 C 

£551 C;:--:'::-REVISIOK HISTORY: 

£558 C 
£553 C 

£554 C>;::;:*L0CAL VARIABLES: 

£055 C 

6£5b INTEGER IBUFC512) ! buffer for pixel values; one pixel / integer 

£'-'■57 INTEGER ARALO,ARAHI! array bounds for a pixel buffer 

£578 INTEGER LNLO, LNHI ! limits on COMTAL row numbers 

£3:59 INTEGER HI, LO ! highest and lowest pixel values in IMAGE 

OC.Ju INTEGER ROLL COL ! loop indices 

£i.''ol C 

3 £ J 2 C INITIALIZATIONS: 

£643 C 

6034 DATA ARALO/1/, ARAHI/S12/ 

0035 DATA LNLO /0/, LNHl /Sll/ 


0S56 

C 


C L- o i' 

C: 

>i«:"iRR0CESSING 

0GSS 

r 


or fc 


CALL HILO (HI, LO, IMAGE) 

£070 

C 


£071 


DO 2080 ROU «= LNLO, LNHl 

£072 


CALL RDIL2(IBUF, IMAGE, ROD) 

£073 


DO 1000 COL - ARALO, ARAHI 

£D7^: 


IBLIF(COL) - muF(COL) - LO 

£.33 


1800 CONTINUE 

£5 •-5 


CALL LJRIL2( IMAGE, ROU, IBUF) 

£577 
c; '5 
C L I 5 


2000 CONTINUE 


RETURN 

r •• 

L t. ^ 


END 
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8.N0TE2 T-00084 IS ON CR00021 USING 00024 BLKS R-0000 


0001 

0002 

0003 

0004 

0005 
000G 
000? 
0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 
001 ? 
0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 
002? 
0028 

0029 

0030 

0031 

0032 

0033 
6034 
0035 
0035 
003? 

0038 

0039 

0040 

0041 

0042 

0043 

0044 


^CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


C^totokPARAMETER DECLARATIONS: 
C 

INTEGER GRNUM ! 


INTEGER XCOOR 

INTEGER YCOOR 


the number of the graphic to be written into; 
! NOTCS doesn't clear or display this graphic. 


C 

C 

C 

C 


INTEGER 
CHARACTER:!: 1 


CHARACTER>k(>kON0TE 


. XCOOR and YCOOR define the upper left corner of the 
! position of the first character in the NOTE. 

FACTOR! controls sire of characters plotted; 1..16. 

COLOR ! signals if you wish to stay the same color' ('S') 

I or change to red ('R'), green('G'), blue('B'), 

I black('K'), white('U'), or yellow('Y'). 

! the message to be printed in graphics; NOTES 
i designed for constant strings. 


C:loiok INTRODUCTION: 

C 

This subroutine, N0TE2 writes a line of characters into a COITTRL grophics 
plane. The parameter NOTE should be a constant string. 9''°PhiCS 

A ^ery Similar subroutine, NOTES, uses a string variable and a length 
parameter instead of the constant string. ^ 


C 
C 
C 

r 

C 

C^xokLANGUAGE : 

C 

C FORTRAN 7? , the HP-1000 version for RTE-6/VI1. 
C' 

C»ok*LIMITATIONS: 

C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


GRNUM must be in the range 1-4 inclusive. 

XCOOR and YCOOR must be in the range 0-511. 

following: 'S' (for "Same color"), 

R (ror Ksd"), 'G' (for "Green"), 'B' (for "Blue"), 

'K' (for "black"), 'U' (for "IJhite") or 'Y' (for "Yellow"). 

Other colors could be easily added. See TABLE 1 in the NOTES 
section for other colors. 

FACTOR must be in the range 1-16 inclusive. 

If a restriction is violated, NOTES fails with an error message. 

The graphics plane named here is turned on and all other graphics 
planes are turned off when this subroutine is executed 
The GRNUM plane is NOT cleared. 
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0045 

0046 
“0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 


Thp length of time it toKes the COMTflL to write a note in graphics 
causes a timing problem; the COMTAL may ignore the next COMTAL 
command sent from the HP. Therefore, we DELAY the HP for a number 
of seconds proportional to the size of the NOTE characters. 


remarks 


name 

source 

load 

CMMN2 

8.CmN2 

%CrMt2 

CMMND 

&CMMND 

%CMMND 

DELAY 

-8DELAY 

«DELAY 

DIGIT 

8.DIGIT 

^iDIGIT 

DSPGR 

1 PK! 

8.DSPGR 

^DSPGR 

RANGE 

8.RANGE 

l^RANGE 


C 
£ 

£ 

C 
C 
C 

CJtotokSUBPROGRAMS CALLED: 

C 
C 
G 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 

CJtotoKUR ITTEN BY: 

C 

C The code on which this subprogram is based was written by 
C NETTIE D. FAULCON, July, 1983. This subprogram was written by 
C KEITH MILLER, July, 1984, with the support of a NASA-ASEE 
•C summer fellowship. 

c- • 

C»otoKREVISION HISTORY; 

C 

c 

C>K)M<L0CAL VARIABLES: 

C ■ 

function that returns '^'-'9' for integer 
input 0-9. 

intrinsic HP F0RTRAN77 function that returns 
the length of a character siring, 
logical function determines if 1st argument is 
within 2nd and 3rd arguments, inclusive, 
the single digit that corresponds to GRNUM. 
length of the character siring, 
the # of first character in CBUF that holds 
the first character of NOTE. 


were typed at the COMTAL keyboard, 
sends command siring and length parameter to 
COMTAL as if it were typed at the COMTAL Keyboard, 
puts the HP 4n -a busy wait; the «rgument -to DELAY 
gives the number of seconds to DELAY. 
character>t<l function that returns '0'-'9' 
according to integer input 0-9. 


returns the length of a character string, 
logical function that determines if 1st 
parameter is within the 2nd & 3rd inclusive. 


CHARACTER>K1 

DIGIT ! 

INTEGER 

LEN ! 

LOGICAL 

RANGE ! 

CHARACTER*! 

GRCHAR ! 

INTEGER 

LONG ! 

INTEGER 

START ! 
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0091 

0092 

0093 

0094 

0095 

0096 
009? 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 
01 1 ? 
0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 
012 ? 
0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 


C 

INTEGER GRLO«GRHI ! limits for COMTftL graphics plane number. 
INTEGER CMLO^CMHI ! limits on COMTAL coordinates. 

INTEGER FCL0,FCHI ! limits on FACTOR. 

INTEGER TERM ! logical unit for terminal output. 

C 

INTEGER IBUF(128) ! buffer for sending CMMND commands. 

CHARACTER'''255 CBUF ! overlays IBUF 

EQUIVALENCE (IBUF, CBUF) 

C 

C^ioiokINITIALIZATIONS: 

C 


DATA GRL0/l/',GRHI/4/ 

data CMLO/0/,CMHI/511/' 

DATA FCL0/1/,FCHI/16/ 

DATA TERM/'l/ 

C 

OtotokPROCESSING: 

C 

IF (.HOT, (RANGE (GRNUM. GRLO-GRHI))) GOTO 8001 ! error return 

IF (.NOT. (RANGE (XCOOR, CMLO,CMHI))) GOTO 8101 ! error return 

IF (.NOT. (RANGE (YCOOR, CML0,CMHI))) GOTO 8201 ! error return 

IF (.NOT.(RANGE(FACTOR,FCLO,FCHI))) GOTO 8301 ! error return 

C 

GRCHAR = DIGIT(GRNUM) ! initialization delayed until GRNUM checked. 


IF ((COLOR .EQ. 'S') .OR. (COLOR .EQ. 
IF ((COLOR .EQ. 'R') .OR. (COLOR .EQ. 
IF ((COLOR .EQ. 'G'). OR. (COLOR .EQ. 
IF ((COLOR .EQ. 'B') .OR, (COLOR ,EQ. 
IF ((COLOR .EQ. 'K') .OR. (COLOR .EQ. 
IF ((COLOR ,EQ. 'U') .OR. (COLOR .EQ. 
IF ((COLOR .EQ. 'Y' ) .OR. (COLOR .EQ. 
C ELSE... COLOR an illegal character 

GOTO 8401 ! error return 

C 

C Color graphics red 

1000 CALL CMMN2('C0 G '//GRCHAR//' RED') 

GOTO 2000 


C Color graphics 
1100 CALL CMMN2('C0 
£OTO 2000 
C 

C Color graphics 
1200 CALL CMMN2('C0 


green 

G '//GRCHAR//' 


bl ue 

G '//GRCHAR//' 


GRN') 


BLU') 


s')) 

GOTO 

2000 ! 

! "Same" 

r')) 

GOTO 

1000 ! 

! "Red" 

g')) 

GOTO 

1100 ! 

"Green" 

b')) 

GOTO 

1200 ! 

"Blue" 

K')) 

GOTO 

1300 ! 

"black" 

LJ')) 

GOTO 

1400 1 

"Uhite" 

y')) 

GOTO 

1500 ! 

"Yel 1 ou 



GOTO 2000 


013? 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 
014? 
0140 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 
015? 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 
016? 
0168 
0169 
01?0 
ei?i 

0172 

0 173 
B 1 7 4 

0175 

0176 
017 ? 
0173 

0179 

0180 
0181 
0182 


G 

C Color graphics blacK 
1300 CALL CmN2('C0 G ' //GRCHAR/'/' BLA') 
GOTO 2000 
C 

C Color graphics uhite 
1400 CALL CmN2('C0 G '//GRCHAR//' UHT' ) 
GOTO 2000 
C 

C Color graphics uhite 
1500 CALL CMMN2('C0 G ' //'GRCHAR/'/" VEL') 
GOTO 2000 
C 


2000 GALL T)SPGR(GRNUM) 

CALL URTARCXCOOR. YCOOR) 
C 


! display the chosen graphics 
! position the cursor for uriting 


LONG = LENCNOTE) 

IF (FACTOR .GE. 10) GOTO 3000 

C ELSE... 

CBUF(1:8) •= 'G ' //GRCHAR/’/' L '//DlGlTCFACTOR)//' ' 

START «= 9 
LONG = LONG + 8 
GOTO 4000 

C THEN... 

3000 CBUF(l;9) = 'G V/GRCHAR//' L IV/DIGITCFACTOR-IO)//' ' 
START = 10 
LONG = LONG + 9 
GOTO 4000 

'^1000 CBUF (START; LONG) ■= NOTE 
CALL CmND(IBUF,LONG) 

C 

C Put the HP in a busy uait uhile the COMTAL urites the hote 
CALL DELAY( (FACTOR/4) +1) 

RETURN 

C 

Cxciol'ERROR RETURNS : 

C 

3B0 1 UR ITE (TERM, 8603) GRNUM, GRLO, GRH I 

8G03 FORMAT (' THE GRAPHICS NUMBER, 15. ' , IS OUT OF RANG"-' 214 ' ') 
GOTO 8900 ‘ " ' ^ ^ 

C 

8101 URITE(TERM,8103)XCOOR,GMLO,CMHI 

8103 F0RMAT(' THE X COORDINATE, ', 15, IS OUT OF RANGE: ' ,214, ' ') 
GOTO 8900 
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0183 C 

0184 8201 UIRITECTERM,8203)YCOOR,CMLO,CMHI 

0185 8203 FORMAK' THE Y COORDINATE, 15, ' , IS OUT OF RANGE: ' ,214, ) 

0186 GOTO 8S00 

018? C 

0188 8301 LJRITE(TERH.8303)FACTOR,FCLO,FCHI 

0189 8303 FORMATC' THE SCALE FACTOR, ', 15, ' , IS OUT OF RANGE: ' ,214, ) 

0190 GOTO 8969 

0191 C 

0192 8401 UR ITE (TERM, 8403) COLOR 

0193 8403 FORMAT(' THE COLOR PARAMETER, ' ,A1, ' , IS NOT S, R, G, OR B.') 

0194 GOTO 8900 

0195 C 

0196 8900 UR ITE (TERM, 8901) 

0197 8901 FORMAT(' N0TE2 FAILS. NO LETTERING PLACED INTO GRAPHICS.') 

0198 C 

0199 RETURN 

0260 END 


6.M0TES T-00004 IS ON CR00021 USING 00004 ELKS R*0000 


000 ; !• 
0002 
00:03' 
00:04 

0005 

0006 
0607 
0008. 
QQQS 
0010 
03 1 1 
0012 
0013 
0314 
8315 
00:16 

0017 

0018 

0019 

0020 
082 1 
0022 
6823 

0024 

0025 

0026 
0027 
0023 
0029 
6030 
6631 

0632 

0633 
0334 

r* r. :r 

0036 

6037 

6333 

0039 

6043 

6841 

6042 

0843 

0044 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE NOTES (GRNUM. XCOOR, YCOOR, COLOR. FACTOR. NOTE. LENGTH) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccceccc 

c 


CxoiokPflRflnETER DECLARATIONS: 
C 

INTEGER 


INTEGER 

INTEGER 

INTEGER 

CHARACTER*! 


GRNUM ! the number of the graphic to be written into; 

! NOTES doesn't clear or display this graphic. 

XCOOR ! 

YCOOR ! XCOOR and YCOOR define the upper left corner of the 
! position of the first character in the NOTE. 

FACTOR! controls size of characters plotted; 1-16. 

COLOR I signals If you wish to stay the same color ('S') 

^ '-or change to red ('R'). green('G'). or blue('B'). 

CHARACTER*255 NOTE I the message to be printed in graphics is in the 
^ ! first LENGTH characters of this string. 

INTEGER LENGTH! the number of NOTE characters that are to be used. 

C*** INTRODUCTION: 

C . 

C This subroutine. NOTES writes o line of characters into a COMTAL graphics 
C plane. ihe parameter NOTE should be a declared string. 

C A very similar subroutine. N0TE2. uses a string constant without d length 

C parameter. ^ 

C 

C»otokLANGUAGE: 

C 

0 FORTRAN 77. the HP- 1000 version for RTE-6/VM. 

c- 

C«o)o!sL IMITATIONS: 

C 

C GRNUM must be in the range 1-4 inclusive. 

C XCOOR and YCOOR must be in the range 0-511, 

C COLOR must be one of the following: 'S' (for "Same color"), 

C 'R' (for "Red"), 'G' (for "Green"), or 'B' (for "Blue"). 

C FACTOR must be in the range 1-16 inclusive. 

C LENGTH must be in the range 0-255 inclusive. 

C If a restriction is violated. flOTES foils with an error message. 

C The graphics plane named by GRNUM is turned on and all other 

C graphics planes are turned off. GRNUM plane is NOT cleared. 

C 

C Because the COMTAL taKes a while to write the note to the screen. 

C there can be a timing problem between the COMTAL and the HP which 
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C couses the COMTftL to ignore the next HP command. Therefore, the 
C routine DELAY is used to cause o delay proportional to the size 
C of the characters being printed at the COMTAL. 

C 

C>ioioi;SUBPROGRAMS CALLED: 

C 

C name source load remarks 


CmN2 

CmND 

DELAY 

DIGIT 

DSPGR 

RANGE 


e.CMMN2 j;CMriN2 sends constant string to COMTAL as if it 
were typed at the COMTAL keyboard. 

8.CMMND JJCMMND sends a fixed string command to COMTAL as if it 
were typed at the COMTAL keyboard. 

6.DELAY ^DELAY puts the HP in a busy wait for the number of 
seconds designated • in DELAY'S parameter. 

G.DIGIT ^DIGIT character>kl function that returns '0'— ^9' 
according to integer input 0-9. 

&DSPGR %DSPGR adds a graphic plane to the display. 

8.RANGE GRANGE logical function that determines if the 1st 
argument is within the 2nd & 3rd inclusive. 


CxoiokURITTEN BY: 

C 

C The code on which this subprogram is based was written by 
C NETTIE D. FAULCON. July. 1983, This subprogram was written by 
C KEITH MILLER. July. 1984. with the support of a NASA-ASEE 
C summer fellowship. 


C>l«io:tREVISION HISTORY: 

C 

t 

C«oio:cL0CAL VARIABLES; 

C 

CHARACTER*! DIGIT 


LOGICAL 


RANGE 


CHARACTERMa GRCHAR 
INTEGER LONG 

INTEGER GRLO.GRI-il 
INTEGER CMLO.Cmi 
INTEGER FCLO.FCHI 
INTEGER STLO.STHI 
INTEGER TERM 


function that returns '0'-'9' for integer 
input 0-9. 

function that determines if 1st argument is 
within 2nd and 3rd arguments, inclusive., 
the single digit that corresponds to GRNUM. 
the length of the CMMND command. 

limits for COMTAL graphics plane number. 

limits on COMTAL coordinates. 

limits on FACTOR. 

limits on string LENGTH. 

logical unit for terminal output. 


CHARACTERT255 CBUF 


! buffer for CMMND commands 
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0891 INTEGER IBUFC 128) ! overlays CBUF 

0092 EQUIVALENCE (CBUF, IBUF) 

0093 C 

0094 C?mokINITIALIZATIONS: 

0095 C 

0096 DATA GRL0/l/,GRHI/4/ 

809? DATA CMLO/0/,CMHI/511/ 

0098 DATA FCL0/1//FCHI/16/ 

0099 DATA STLO/0/,STH 1/255/ 

0100 DATA TERN/1/ 

0101 C 

0102 C«olo|«PROCESSING: 

0103 C 

0104 IF (.NOT. (RANGE (GRNUN, GRLO.GRHI))) GOTO 8001 ! error return 

0105 IF (.NOT. (RANGE (XCOOR, CNLO.CMHDl) GOTO 8101 1 error return 

0106 IF (.NOT. (RANGE (YCOOR, CNLO.CNHI))) GOTO 8201 ! error return 

0107 IF (.NOT. (RANGE(FACTOR,FCLO,FCHIM) GOTO 8361 ! error return 

0163 IF (.HOT. (RANGE (LENGTH. STLO.STHI))) GOTO 8401 ! error return 

0109 C 

0110 GRCHAR s DiG!T(GRNUNl ! initialization delayed until GRNUN checKed. 

0111 C 

0112 IF ((COLOR ,EQ. 'S' ) .OR. (COLOR .EQ. 's')) GOTO 2000 ! "Same" 

0113 IF ((COLOR .EQ. 'R' ) .OR. (COLOR .EQ. 'r')) GOTO 1080 ! "Red" 

0114 IF ((COLOR .EO. 'G' ) .OR. (COLOR .EQ. 'g')) GOTO 1100 ! "Green" 

0115 IF ((COLOR .EQ. 'B' ) .OR. (COLOR .EQ. 'b')) GOTO 1200 I "Blue" 

0116 C ELSE... COLOR an illegal character 

011? GOTO 8501 ! error return 

0118 C 

0119 C Color graphics red 

0120 '*1000 CALL CNNN2('C0 G '//GRCHAR//' RED') 

0121 GOTO 2600 

0122 C 

0123 C Color graphics green 

6124 1100 CALL Cii:-ii'!2('C0 G '//GRCHAR//' GRN') 

0125 GOTO 2666 

012b C 

0127 C Color graphics blue 

0128 1200 CALL CNNH2('C0 G '//GRCHAR//' BLU' ) 

0129 GOTO 2600 

0130 C 

0131 2600 CALL DSPGR(GRNUN) ! display the chosen graphics 

0132 CALL l'jRTAR(oC00R. YCOOR) ! position the cursor for writing 

0133 C 

0134 IF (FACTOR .GE. 10) GOTO 3000 

0135 C ELSE... 

0136 CBUF = 'G '//GRCHAR//' L '//DIGIT(FACTOR)//' '//NOTE 
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0137 LONG «= LENGTH + 6 

0138 GOTO 4000 

0139 C THEN... 

0140 3000 CBUF = 'G '//GRCHftR//' L r//DIGIT(FftCTOR-10)//' V/NOTE 

0141 LONG = LENGTH + 9 

0142 GOTO 4000 

0143 C 

0144 4000 CALL CMMNDC IBUF.LONG) 

0145 C 

0146 C Delay for a second or two to relieve timing problem between 

0147 C the HP and the COMTAL 

0148 CALL DELAY(CFACT0R/4)+l) 

0149 RETURN 

0150 C 

0151 C»MoiCRR0R RETURNS: 

0152 C 

0153 8001 URITE(TERM.8003)GRNUM,GRLO.GRHI 

0154 8003 F0RMAT(' THE GRAPHICS NUMBER. 15- ' , IS OUT OF RANGE: ' -214- ' 

0155 GOTO 8900 

0156 C 

0157 8101 LIRITE(TERM-8103)XCOOR,CMLO.CMHI 

0158 8103 FORMATC' THE X COORDINATE- 15- ' - IS OUT OF RANGE: ' -214- ) 

0159 GOTO 8900 

0160 C 

0161 8201 WRITE (TERM- 8203) YCOOR-CMLO-CMH I 

0162 8203 F0RMAT(' THE Y COORD INATE- 15, ' - IS OUT OF RANGE: ' -214- '.' ) 

0163 GOTO 8900 

0164 C 

0165 8301 URITE(TERM-8303)FACTOR-FCLO-FCHI 

0166 ‘‘8303 FORMAT(' THE SCALE FACTOR- '- 15- ' , IS OUT OF RANGE: ' -214- '.' ) 

0167 >' GOTO 8900 

0168 C 

0169 8401 IJRITE(TERM,8403)LENGTH-STLO,STHI 

0170 8403 FORMATC THE STRING LENGTH, '- 15- ' - IS OUT OF RANGE: ' -214- ) 

0171 GOTO 8980 

0172 C 

0173 8501 WRITE (TERM, 8503) COLOR 

0174 8503 FORMATC THE COLOR PARAMETER, ' -A1, ' - IS NOT S, R- G. OR B.') ' 

0175 GOTO 8900 

0176 C 

0177 8900 WRITE (TERM, 8901) 

0178 8901 FORMATC' NOTES FAILS. NO LETTERING PLACED INTO GRAPHICS,') 

0179 C 

0180 RETURN 

0181 END 
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8.PAINT T=00004 IS ON CR00021 USING 00004 BLKS R»0000 

0001 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0002 SUBROUTINE PA I NT (IMAGE, BRUSH, SHADE) 

0003 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCGCCCCC 

0004 C 

0005 CxoiokPARAMETER DECLARATIONS: 

000G C 

030^ INTEGER IMAGE ! number of the COMTAL image to be pointed 

0008 INTEGER BRUSH ! size of the square brush area 

0009 INTEGER SHADE ! the pixel value to be brushed on 

0010 C 

0011 CMoioklNTRODUCTION: 

0012 C 

0013 C The subroutine PAINT allows the interactive user to paint 

6014 C onto a COMTAL image, using the trackball to guide the brush. 

0015 C The user uses the HP keyboard to signal when to paint. 

0016 C Each time the HP <CR> is pressed, PAINT paints a BRUSH >< BRUSH 

601? C square of pixels with the cursor position in the upper left corner 

6018 C of the square. The maximum size for a brush has been set (arbitrarily) 
0019 C to 64 pixels square. 

0620 C 

0021 C>tolokLANGUAGE : 

0022 C 

6023 C FORTRAN 77, the HP-1000 version for RTE-G/VM. 

0024 C 

0025 C>foioi<L IMITATIONS: 

6026 C 

6027 C The COMTAL keyboard is inaccessible to the HP. Therefore, we 

6328 C must use the HP keyboard even though we use the COMTAL trackball. 

0329 C Because of the HP keyboard limitations, the program requires 

0630 C a point ilistic painting: one square in the image is darkened 

6831 C each time the HP <CR> is pressed. 

0032 C 

0033 C5:«*SUBPR0GRAMS CALLED: 

0034 C 

0035 C name source 1 oad remarks 

6035 C — — ———————————— — — 

0837 C DSPBU S.DSPBIJ ‘(DSPEU display a monochrome COMTAL image. 

0038 C IJRIRC G:LT:lIRC ‘^IJRIRC writes the contents of an array to a COMTAL image; 

0038 C the values are read into ci rectangle in the image. 

0043 C RDTAR EiRDTAR :sRDTRR reads the current COMTAL cursor position. 

6041 C WAIT G.LIAIT XUAIT halts HP processing until HP <CR> entered. 

0042 C CMMND &CMMND ;(CMMND sends a character string to COMTAL, which 

0643 C treats the string as a COMTAL keyboard command. 

0044 C 
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0045 CsmokURITTEN BY: 

0045 C 

004? C The code on which this subprogram is based was written by 

0046 C NETTIE D. FftULCON# July-. 1983. This subprogram was written by 

0049 C KEITH MILLER, July. 1984, with the support of a NftSft-flSEE 

0050 C summer fellowship. 

0051 C 

0052 C>toio!-REVISION HISTORY: 

0053 C 

0054 C 

0055 C^toiokLOCAL VARIABLES: ' 


the square that acts as a paint brush- 
this rectangle placed into IMAGE AJhenewer 
<CR> entered to locate cursor on COMTAL. 
loop index for initializing BOX. 

X and Y coordinates of last COMTAL cursor 
(target) position recorded via RDTAR; 
used as upper left corner of rectangle 
to be painted. 

logical unit for terminal I/O. 

1 im.its on COMTAL image number, 
limits on COMTAL pixel ualues. 
limits on size of brush for painting, 
character buffer for HP Keyboard input, 
function that determines if 1st argument 
is within the 2nd and 3rd, inclusive, 
buffer for sending CMMND strings 
character overlay for IBUF 


0056 

C 



0057 


INTEGER 

BOX (64*64) 

0058 

C 



0059 

C 



0060 


INTEGER 

XPOS 

0061 


INTEGER 

UPLFX. UPLFY 

6062 

C 



0063 

c 



0064 

c 



6065 


INTEGER 

. TERM 

0066 


INTEGER 

IMLO. IMHI 

0067 


INTEGER 

PXLO, PXHI 

6068 


INTEGER 

BRLO, BRHI 

6069 


CHARACTERjftI INCHAR 

0070 


LOGICAL 

RANGE 

0871 

c 



0072 


INTEGER 

IBUF(123 


0073 

0074 
6075 
BB76 

0077 

0078 

0079 

0080 
093 1 
0032 
0083 
0034 
0085 
BOSS 
BBS? 
0038 

0089 

0090 


CHARACTER>!<255 CBUF 
EQUIVALENCE (IBUF, CBUF) 

C 

C»oiol<INITIALIZATIONS: 

C 

DATA IMLO/1/, IMHI/4/ 
DATA BRLO/1/, BRHI/12S/ 
DATA PXLO/0/, PXH 1/255/ 
DATA TERM/1/ 


C 

C> 

C 


C 

c 


:'PR0CESSING 

IF (.HOT. (RANGE (IMAGE, IMLO, 
IF (.NOT. (RANGE (BRUSH. BRLO, 
IF (.NOT, (RANGE (SHADE, PXLO, 


IMKI))) 

BRHI))) 

PXHI))) 


GOTO 

GOTO 

GOTO 


8001 

8101 

8201 


error return 
error return 
error return 


MaKe sure the image in question is displayed 
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0091 

0092 

0093 

0094 
009B 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
e 1 22 

0123 

0124 

0125 

0126 
0127 
0123 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 


C 

C 

C 

C 

C 

G 

C 


CALL DSPBUCimSE) 

Initialize the paint brush (this initialization done here 
instead of above to avoid processing when a parameter is bad). 

Programming note; the BOX array is filled as a one dimensional array, 
but is interpreted by URIRC below as a two dimensional array. 

DO 400 XPOS « 1, (BRUSH*BRUSH) 

BOX(XPOS) «= SHADE 
400 CONTINUE 


C 

C 

C 


C 

c 

c 


c 

c 

c 


add the target and dump the image on the COMTAL 

GBUF = 'ADD TARGET SDUMP IMAGE ' 

CALL CMMNDCIBUF, 23) 

Give instructions to user 

URITE(TERM, 501) 

501 F0RMAT(' ENTER <CR> TO PAINT A SQUARE.', 

1 ' ENTER S<CR> TO EXIT PAINTING.') 

Loop for input/painting starts here: 


1000 INCHAR = ' ' 

READ (TERM, 1001) INCHAR 

1001 FORMAT(lAl) 

IF (INCHAR .EQ. ' ') GOTO 2000 ! paint another square and continue. 

IF ((INCKAR .EQ. 'S') .OR. (INCHAR .EQ. 's')) GOTO 9000 I terminate 
C ELSE. .. il legal entry 

URITECTERM, 1003) INCHAR 

1003 F0RMAT(' THE CHARACTER ENTERED, lAl, '", IS NOT LEGAL', 
i ' FOR PAINTING.',/,' PLEASE TRY AGAIN.') 

GOTO 1G00 
C 

C , Actual painting taKcs place here: 

C 

2000 GALL RDTARCLIPLFX, UPLFY) 

CALL U!RIRC( IMAGE, UPLFX, UPLFY, BOX, BRUSH, BRUSH) 

GOTO 1000 
C 

CiKoKikERROR RETURNS: 

C 

8001 WRITE (TERM, 8003) IMAGE, IMLO, IMHI 
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0137 6003 FORMATC' IMAGE NUM8ER-', 15. OUT OF RANGE:'. 214. 

0138 GOTO 8900 

0139 C 

0140 8101 IJRITE(TERM. 8103) BRUSH. BRLO. BRHI 

0141 8103 FORMATC' BRUSH ARGUMENT.'. 15. '. OUT OF RANGE:'. 214. '.') 

0142 GOTO 8900 

0143 C 

0144 6201 URITECTERM. 8203) SHADE. PXLO. P>«H 

0145 8203 FORMAT (' SHADE ARGUMENT.'. 15.'. OUT OF RANGE:'. 214. '.') 

0146 GOTO 8900 

0147 C 

0148 8900 URITECTERM. 8901) 

0149 8901 FORMATC' PAINT SUBROUTINE FAILS.') 

0150 C 

0151 9000 CONTINUE 

0152 RETURN 

0153 END 

0154 
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8.PR0FL T=00004 IS ON CR00021 USING 00004 BLKS R=0000 


0001 

0002 

0003 

0604 

0005 

0006 
0007 
0608 

0009 

0010 
0011 
0012 
0013 
6014 
0015, 
0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 
6034 
0035 
0636 
6637 

6038 

6039 
0040 
0841 

0042 

0043 

0044 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE PROFL (GRAPH, IMAGE.'' 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

Ch-’IoxPARAMETER DECLARATIONS: 

C 


c 

c 

c 


INTEGER GRAPH 
INTEGER IMAGE 


the number of the COMTAL graphics plane in which 
the profile is to be displayed, 
the number of the COMTAL image which is going to 
be "profiled." 


C>Mok INTRODUCTION: 

C 

C The subroutine PROFiLe gives HP access to the COMTAL's interactive 

C profiling facilities. This subroutine initializes the COMTAL for 

C taking profiles of IMAGE and displaying them in the specified GRAPH 
C plane. Note that this subroutine clears the specified graphics plane 

C Control passes to COMTAL for profiling, and then a <CR> on the HP 

C terminal restores control to the HP terminal, 

C 

CxokJKLANGUAGE : 

C 

C FORTRAN 77, the HP- 1000 version for RTE-6/VM 
C 

C>toK>!<L IMITATIONS: 

C 

C GRAPH and IMAGE are checked, and if they are out of bounds, no 

C profiling takes place and an error message is printed. The shift 

C from the HP terminal to the COMTAL terminal may result in some 
C confusion, but this switch exploits the COMTAL circuitry much more 
C efficiently than would be possible using the HP terminal alone. 


C'lKiiof'SUBPROGRAMS CALLED: 
C 


name 

source 

load 

RANGE 

G:RANGE 

GRANGE 

CMMND 

&CMMND 

%CMMND 

UAIT 

&UAIT 

JfUAIT 

CHAR 




remarks 


logical function that determines if 1st argu- 
ment is within 2nd and 3rd, inclusive, 
sends a command to the COMTAL as if it were 
typed at the COMTAL keyboard, 
halts HP processing until <CR> is pressed on 
the HP keyboard. 

instrinsic HP F0RTRAN77 function that converts 
integers into characters 
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6G145 

B04S 

004? 

0048 

0049 


C DIGIT &DIGIT %DIGIT characler>i<l function that returns '0'.,'9' 
^ according to integer input 0..9. 

Cxok*URITTEN BY: 

C 


0050 

0651 

0652 
0053 
6654 
0655 
005G 
6657 
0058 
6059 
0060 
66S1 
0662 

0063 

0064 
0665 
0066 
666 ? 
0068 
6069 
60?0 

0071 

0072 


C 

C 

C 

C 

C 


subprogram is based was written by 

l-'FTTH MTi'i subprogram was written by 

KEITH filLLER, July, 1984, with the support of a HftSft-ASEE 
summer fellowship. 


CxtXokREVISION HISTORY: 
C 

CxoioKLOCAL VARIABLES: 

C 


C 

c 

c 

c 

c 


CHARACTER>kl 


CHARACTER>kl 


CHARACTERxa 

CHARACTER*! 

CHARACTER 


GCHAR 

ICHAR 

BELL 
DIGIT ! 

j 

CHAR ! 


the character that corresponds to the single 
digit argument, GRAPH 

the character that corresponds to the single 

digit argument, IMAGE 

the ASCII code for ESCAPE, 

function that returns '0'..'9' according to 

integer argument 0..9. 

intrinsic FORTRAN?? function for integer to 
character conversion. 


C 


INTEGER IBUF(128)! integer buffer 

CHARACTERX:255 CBUF ! overlays IBUF 
EQUIVALENCE (IBUF, CBUF) 


for sending COMTAL commands 


0073 
6674 
6075 
0076 
067? 
D 01 7 S 
6079 
0 6 h' 0 
0631 
0032 
6627 
6004 
6635 
6086 
0087 
6088 
0689 
6090 


INTEGER GRLO.GRHI! 

INTEGER IML0,IMHI! 

LOGICAL RANGE ! 

C . j 

INTEGER TERM i 

C 

CX"-!o!<INITIALI2ATI0HS: 

c 


limits on numbers of graphics planes in COMTAL 
limits on numbers of image planes in COMTAL 
logical function that determines if 1st argu- 
ment is within 2nd and 3rd argument, inclusive, 
logical unit for terminal output 


DATA 

GRL0/l/,GRHI/4/ 

DATA 

IMLO/1/, IMHI/4/ 

DATA 

TERM/l/ 

BELL 

= CHAR(?) ! HP hell 


CxoioKpROCESSING 

C 

IF ( .NOT. (RANGE(GRAPH,GRLO,GRHI) ) ) GOTO 8001 
IF (.NOT. (RANGECIMAGE, IMLO, IMHI))) GOTO 8101 



0091 

0692 

6093 

0094 

0095 

0096 

0097 
6098 
0099 
0160 
0101 
0102 

0103 

0104 

0105 

0106 
010? 
0108 

0109 

0110 
0111 
0112 
6113 

0114 

0115 

0116 

0117 

0118 
0119 
0129 
0121 
0122 

0123 

0124 

0125 

0126 
012 ? 
0128 
0129 

0 i j J 

0131 

0132 

0133 

0134 

0135 

0136 


C. 

C 


set up COMTAL display for profiling 


C 

C 

c 

c 

c 

c 


c 

c 

c 

c 


GCHAR = DIGIT(GRAPH) 

ICHAR = DIGIT(IhAGE) 

the fol lowing COMTAL command reads as follows (#G stands for 
the single digit associated with GRAPH; and *1, with IMAGE): 
Display Image *1; Add Graphics <J=G; Clear Graphics =!>G; 

COLor Graphics «G RED. 

CBUF ■= 'D I ' //ICHAR//' SADD G '//GCHAR//' SCL G '//GCHAR// 

1 ' SCO G '//GCHAR//' RED' 

CALL CMMNDCIBUF, 34) 

the following COMTAL command reads: Add TArget; 

Graphics “^G = PROfile of image =!fl. 

CBUF = 'A TA £G '//GCHAR//' PRO '//ICHAR 
CALL CMMNDCIBLfF, 15) 

print out instructions for the COMTAL Keyboard interaction 
WRITE (TERM- 7001) 

7061 FORMATC' COMTAL function switches control profiling.', 

1 /,^ Switch 2 toggles X profiling on and off.', /, 

2 ' Switch 3 toggles Y profiling on and off.', /, 

3 ' Switch 1 requests new profiles.',/, 

4 ^ Press <ESC> on the COMTAL keyboard and then press', 

CALL WAIT Keyboard to end profiling.') 

RETURN 

C 

C>i»ioi€RR0R RETURNS: 

C 

8061 WRTTECTERM, e003)GRAPH, GRLO, GRHI 
8003 FORMATC' THE GRAPH PARAMETER, ',14, 

■ GOTO 8900 
C 

8101 WRITE (TERM, 8103) IMAGE, IMLO, IMHI 

eiOi F0RMAT(' THE IMAGE PARAMETER, ', 14- ' , IS OUT OF RAK'GE-' ”?IT) 
GOTO 8960 “ 

C 

8900 WRITE (TERM, 8901) 

8901 F0RMAT(' PROFL FAILS. NO PROFILING DONE.') 

RETURN 
END 


IS OUT OF RANGE: ',2 13) 
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£,RftNGE T=B00B4 IS ON CR00O21 USING 00003 ELKS R=0GBO 


0001 

0032 

0003 

0304 

6GG5 

0036 

60G? 


0010 
001 1 
0012 

6013 

6014 
0015 
90 16 
601 7 
631S 
0319 
0020 
6021 
0G22 
0023 
0624 
0.025 
6026 
0627 

>• 

0025 
0030 
633 1 

6632 

6633 
0634 
f'6.35 
0636 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

LOGICAL FUNCTION RANGEOOBJECT- LOU, HIGH) 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

CxoiokPARARAMETER DECLARATIONS: 

C 


c 


INTEGER OBJECT ! 
INTEGER LOU, HIGH ! 


vticr t<w»iir.*cri r-' «■ cmMiii a ■ 

L ^ 1 J r/. • X ^ n n X Un <••• »*• I « mi«. 

«.iic 4 4Mi4«.a^ Wii «.iie cr I 


C>i:>K'Hi INTRODUCTION: 

C 

C This f unci ion returns .TRUE, if the OBJECT is within the range 
C between LOU and HIGH (inclusive), and .FALSE, if it is outside 

C that range. If LOU .GT. HIGH, an error message is printed, 

C and .FALSE, is returned. 

,C 

CxoK*LiriITATIONS: 


C 

C No error code is returned. Only a message is printed out. 
C 

C>t:*>t'URITTEh' BY: 

C 

C Keith Miller, NASA-Langley ASEE fellow, 1984 
C 

C*»<>IT1EVISI0N HISTORY: 


C 

C 

C»»-*L0CAL VARIABLES: 

C 

INTEGER TERM ! 
C 

INITIALIZATIONS: 


logical unit for terminal output 


DATA TERM/1/ 
C 

C>lc:i'*FRClCESSING: 


6l.:37 C 

6.:36 IF (LOU ,GT. HIGH) URITECTERii, 1631) LOU, HIGH 

3639 1661 FORMATC' LOU,', 15, ', .GT. HIGH,', 15, '. RANGE fails.') 

0040 RANGE ■= ((OBJECT .GE. LOU) .AND. (OBJECT .LE. HIGH)) 

0641 RETURN 

3042 END 

0043 
6644 



8.RDGLN T«00004 IS ON CR00021 USING 00018 ELKS R-0000 


0001 

0002 

0003 

0004 

0005 

0006 
000 ? 
0008 
0809 
0010 
0011 
0012 

0013 

0014 

0015 
0616 
0017 
0618 

0019 

0020 
0021 
0022 
0023 
0824 

0025 

0026 
062 ? 
0028 
0029 
0038 
0331 

0032 

0033 

0034 
6035 
0036 
603 ? 
0038 
0033 

0040 

0041 

0042 
01043 
k^44 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE RDGLN (ONOFFS, GRftPH, LINE) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C>Mot<PARAMETER DECLARATIONS: 

C 

INTEGER ONOFFS(32) ! 16 bits per integer* 512 bits in o line. 

INTEGER GRAPH ! COITTAL image graphics # to be written to. 

INTEGER LINE ! which horizontal line to be written to; 

C ! lines numbered from 1 (screen top) to 512. 

C 

INTRODUCTION: 

C 

C This subroutine ReaLs a Graphics LiNe from the CDMTAL. The line of 
C bits is coded as 1 for on and 0 for off. 

C 

C»)oiokLANGUAGE : 

C 

C FORTRAN ??* the HP- 1000 version for RTE-6/VM. 

C 

CxotoKL IMITATIONS: 

C 

C If GRAPH or LINE is out of range* an error message is printed 
C ond no transfer takes place. 

C 

C>ioiokSUBPROGRftMS CALLED: 

C 

•C name source load remarks 

c — — : 

C RANGE a-RANGE GRANGE logical function that determines if its 

^ first parameter is within the last two parameters. 

CxoioKlJRITTEN BY: 

C 

C The code on which this subprogram is based was written by 
C NETTIE D. FRULvON* July* 1983. This modification is by 
C KEITH MILLER* June* 1984. 

C 

C>i:m«I!REVISION HISTORY: 

C 

C 

C>K»okL0CAL VARIABLES: 

C 

LOGICAL RANGE ! function that ascertains if its first parameter 
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6045 

0046 

0847 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 
0067 
0063 

0069 

0070 
6071 
6672 

0073 

0074 

0075 

0076 

0077 

0078 

0079 
0003 
0681 
0632 
0033 
6634 
0635 ' 
6036 
0687 
0088 
0089 


C 

INTEGER TERM 
INTEGER GRLO, GRHI 
INTEGER LNLO. LNHI 
C 

C>toiotcINITIftLIZftTIONS: 

C 


is betueen (inclusive) its last 2 parameters 
the logical unit for terminal output 
the limits on COMTAL monochrome image numbers 
the limits on COMTAL image line numbers 


DATA TERM/1/ 

DATA GRLO/1/, GRHI/4/ 

DATA LNLO/0/, LNHI/511/ 

C 

C>io(okPROCESSING 

C 


IF (.NOT. (RANGE (GRAPH. GRLO,GRHI))) GOTO 8001 ! error return 

IF (.NOT. (RANGE (LINE. LNLO.LNHI))) GOTO 8101 ! error return 

C 

C Programming note: 

C The EXEC coll is explained in detail in the 
C HP Programmer's Reference Manual for RTE-6/VM.p.2-19f f . This 

C transfer function for tne COMTAL is discussed in the 

C COMTAL User's Manual. Section 5.2.2, 1, In the EXEC call 

C that follows, the HP resident driver. DVR41. is called as 

C follows: the first parameter (1) signifies a read; the 
C second parameter is in two parts: 36B identifies the resident 

C DVR41 driver, and 100B identifies the line transfer operation 

C of that driver; the third parameter (ONOFFS) holds the data to be 

C transfered. and the fourth parameter gives ONOFFS' length in words 

C (32); and the final parameter is a COMTAL command, code for the transfer 
CALL EXEC( 1. 368+ 100B. ONOFFS. 32. (GRAPH- 1)»!2048 + LINE + 512) 

RETURN 

C 

CxolokERROR RETURNS 
C 


8001 WRITE (TERM, 8003) GRAPH, GRLO, GRHI 

8003 F0RMAT(' GRAPHICS NUMBER.', 13. ' OUT OF RANGE:', 212.' ') 
GOTO 8900 
C 


8101 URITE(TEF^:M, 8103) LINE. LNLO. LNHI 

8103 FORMATC' LINE NUI-1BER.', 14. ' OUT OF RANGE:'. 213. ' ') 
GOTO 8900 
C 


8900 WRITE (TERM. 8901) 

8901 F0RMAT(' RDGLN FAILS. NO TRANSFER.') 
RETURN 

END 
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E.RDQPT T=GG304 IS ON CRG0021 USING 0G024 ELKS R=0000 


0001 

0002 

0003 

0064 

0005 

0006 
063 ? 
0608 
6039 
0310 
0811 
0012 
0813 

6014 

6015 
00 If 
001 ? 
0018 
0019 
0620 
6021 
6022 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

SUBROUTINE RDGPTCVALUE, GRAPH, XCOOR, YCOOR) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


C-S;>i:*PftRfthETER DECL ARHT I OHS : 
C 


C 


INTEGER 

INTEGER 

INTEGER 


VALUE 

GRAPH 

XCOOR, 


! 0-1 graphics value to be retrieved. 

! COl'ITAL graph number to be read from. 
YCOOR! point where value is to be read from. 


C>t'>tof< INTRODUCTION: 

C 

C This subroutine ReaDs a Graph PoinT from the COtITAL. The value 

C of the graphics is an on/off decision, represented 

C bg an integer 1 or 0. 

C If the graph number or coordinates are out of range, an error 

C message is printed and no transfer taKes place. 


CH«>t«kLANGUAGE : 

C 

C FORTRAN ??, the HP- 1000 version for RTE-6/VM. 


6023 

6024 

6825 

6826 
602? 
0628 
6029 
0630 
6631 
0832 
6033 
6634 
6035 
G035 
C 8 3 <’ 
0033 
0339 
6040 

0041 

0042 

6043 

6044 


CHt*xtLIMITATI0NS: 

C 

C If GRAPH, XCOOR, YCOOR, or VALUE are out of range, an error message 

C is printed at the terminal and no transfer takes place. 


C>»:*>!?SUBPR0GRAnS CALLED: 
C 


C name 
c 

source 

load 

remarks 

C RANGE 
C 

C BTEST 
C 
C 
C 

c 

&RANGE 

XRANGE 

logical function that determines if its 
first parameter is within the last two parameters. 
HP FORTRAN?? instrinsic function that takes an 
integer argument and returns .TRUE, or .FALSE, 
according to the bit selected by its second 
argument t bit = G, FALSE returned. 

C**>l;URITTEN 

BY: 




C 

C The code on which this subprogram is based was written by 
C NETTIE D. FAULCON, July, 1983, This modification is bu 
C KEITH MILLER, June, 1984. 

C 
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e045 

0046 

0347 

654S 

0049 

0653 

6S5i 

0052 
0353 

0054 

0055 

0056 
005? 
6053 
0059 
6060 
006! 
0662 

0053 


C!:<S'>:'.RE V I S I ON HI STORY ; 

C 

C 

C>i«)i«>ilOCftL VARIABLES: 

C 

LOGICAL RAHGE 
C 

LOGICAL BTEST 
INTEGER TERM 
INTEGER GRLO, GRHI 
INTEGER LNLO, LNHI 
INTEGER BTLO, BTHI 
INTEGER BITS (32) 
INTEGER UORD 
INTEGER BIT 
C 
C 

C^tokXcINITIALIZATIONS:' 

C 


! function that , ascertains if its first parameter 
! is between (inclusive) its lest 2 parameters 
! is a certain bit on or off, 

! the logical unit for terminal output 
! the limits on COMTAL monochrome graph numbers 
I the limits on COMTAL graph line numbers 
! the limits on COMTAL graphics values 
! a buffer to read & write a COMTAL graphics line 
! which word of BITS holds the bit selected by XCOOR, 
! which bit in BITS (WORD) holds the bit selected by 
! XCOOR; bits numbered 6-15- right to left. 


0964 

0065 

0066 
036? 
0868 
0669 
0070 

0671 

0672 

0073 

0074 
6075 

0676 

0677 

0678 C 
6979 C 


DATA TERM/1/ 

DATA GRLO/'l/'- GRHI/4/ 

DATA LNLO/'0/- LNHI/511/ 


C 

C>iok*PROCESSING 


C 

C 

C 

c 

o 

U 


IF (.NOT. (RANGE(GRAPH-GRLO-GRHI))) GOTO 8001 ! error return 
IF (.NOT. (RANGE(XC00R-LNL0, LNHI))) GOTO 8101 ! error return 
IF (.NOT. (RANGE (YCOOR-LNLO.LNHI))) GOTO 8201 I error return 

Programming note: 

The EXEC calls below are to the DVR41 driver. The first call 
is identical to the call made in RDILN. The second EXEC call 
is identical to the one in WRILN. See the docurrientat ion for 
those subroutines for details on these calls. 


6033 

C 

Read 

the COMTAL 1 ine (hori 

6381 

C 



6332 

6333 


CALL 

EXEC (1,36B+1683. BITS, 

6324 

C , 

F ind 

the single bit that 

0635 

C 


0686 


WORD 

= (XC00R/'16) + 1 

008? 


BIT 

■= (16W0RD) - XCOOR - 

0688 

c 



0639 


VALUE 

= 0 

0630 


IF (BTEST(BITS(WORD),BIT)) 


! bit is clear until proven set. 
VALUE = 1 



RETURN 


009! 

0092 

6693 

0594 

0695 

665 $ 

D0S7 

6058 

6099 

6166 

0101 

0102 

0103 

0104 

0105 
616G 
0107 
0168 
0109 
6110 


C 

C>t;>f;>KERR0R RETURNS 
C 


8001 WRITE (TERM, 8003) GRfiPH, 
8003 F0RMftT(' GRfiPH NUMBER,', 
GOTO 8900 
C 


GRLO, GRHI 

13- ' OUT OF RANGE:', 


810! WRITE (TERM, 8103)XCOOR, LNLO, 
8103 FORMftT(' X COORDINATE,', 14, 
GOTO 8900 
C 


LNHI 

OUT OF RANGE:', 


212 ,'.') 


214, '.') 


8201 WRITE (TERM, 8263)YC00R, 
8203 FORMAT(' Y COORDINATE,' 
GOTO 8900 
C 


LNLO, LNHI 

14, ' OUT OF RANGE:', 


8900 WRITE (TERM, 6901) 

8901 FORMAT(' RDGPT FAILS, NO TRANSFER ') 
RETURN 

END 


214, 


') 
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8.RDIL2 T=00004 IS ON CR00021 USING 00018 ELKS R-0000 

0001 CCCCCCCCCCCCCCCCCCCCCCCCCGCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

0002 SUBROUTINE RDIL2CINTS, IMAGE, LINE) 

0003 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0004 C 

0605 C>K>ioKPftRAMETER DECLARATIONS: 

0006 C 

063? INTEGER INTS(512) ! 512 pixGl values to be read, one integer/pixel 

0808 INTEGER IMAGE ! COMTAL image number to be read from 

6009 INTEGER LINE ! which horizontal line is to be read from: 

0010 C ! lines numbered from 1 (screen top) to 512. 

0011 C 

0012 C>i«oK INTRODUCTION: 

0013 C 

0014 C This subroutine ReoDs an Image LiNe from the COMTAL. The line of 

6815 C pixels is made up of 8 bit (0-255) grey scale intensities. The 

8316 C ' PIXELS array will be filled to capacity by RDIL2. 

001? C 

0018 C>K5(o!<LANGUAGE; 

0019 C 

0020 C FORTRAN ??, the HP-1000 version for RTE-6/VM. 

0021 C 

0022 CxoloKL IMITATIONS: 

0023 C 

6024 C IMAGE must be a monochome image. The LINE parameter must be between 

6025 C 0 and 511. If IMAGE or LINE is out of range, an error message is printed 

0026 C and no transfer takes place. 

602? C 

0028 C>iotoi!SUBPROGRAMS CALLED: 

0029 C 

0030 C name source load remarks 

0031 C 

0332 C RANGE GRANGE %RANGE logical function that determines if its 

8333 C first parameter.is within the last two parameters. 

0034 C ICI-IAR intrinsic HP FORTRAN?? function that converts 

6335 C Cl character (1 byte) into an integer (2 bytes) 

0036 C 

603? C>k>!<>i<l.JRITTEN BY: 

6038 C 

6039 C The code on which this subprogram is based was written by 

0040 C NETTIE D. FAULCON, July, 1983. This modification is by 

0641 C KEITH MILLER, June, 1984. 

6042 C 

0043 C>l»M<REVISI0N HISTORY: 

0044 C 
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0045 C 

0046 CJtoiokLOCftL VARIABLES: 

0047 C 

0048 INTEGER PIXELS(256) ! 512 byt 0 S, 1 pix 0 l/byte. transferred to COffTAL 

0049 CHARACTER>K1 CPIXC512) ! o>.;erlays PIXELS 

0050 EQUIVALENCE (PIXELS. CPIX) 

0051 C 

0052 LOGICAL RANGE ! function that, ascertains if its first parameter 

0053 C ! is between (inclusive) its last 2 parameters 

0054 INTEGER TERM ! the logical unit for terminal output 

0055 INTEGER IMLO. IMHI i the limits on COMTAL monochrome image numbers 

0056 INTEGER LNLO. LNHI ! the limits on COMTAL image line numbers 

0057 INTEGER INDEX ! loop index for stepping through the arrays. 

0058 C 

0059 C^woklNITIALIZATIONS: 

0060 C 

0061 DATA TERM/1/ 

0B62 DATA IMLO/1/. IMHI/4/ 

0063 DATA LNLO/0/. LNHI/511/ 

0064 C 

0065 OMokPROCESSING 

0066 C 

0067 IF ( .NOT, (RANGE( IMAGE. IMLO, IMHI) )) GOTO 8001 ! error return 

0068 IF (.NOT. (RANGE(LINE, LNLO.LNHI))) GOTO 8181 ! error return 

0069 C 

0070 C Programming note: 

0871 C The EXEC call is explained in detail in the 

0072 C HP Programmer's Reference Manual for RTE-6/VM.p.2--19f f . This 

0073 C transfer function for the COMTAL is discussed in the 

0074 C COMTAL User's Manual. Section 5.2.2. 1. In the EXEC call 

0675 C that follows, the HP resident driver. DVR41, is called as 

0076 C follows: the first parameter (1) signifies a read; the 

0077 C second parameter is in two parts: 368 identifies the resident 

807S C D'v'R41 driver, and 1008 identifies the line transfer operation 

6079 C of that driver; the third parameter (PIXELS) holds the data to be 

8630 C transferee), and the fourth parameter gives PIXELS' length in words 

0031 C (256); and the final parameter is a COMTAL command code for the transfer 

60S2 CALL EXECd, 368+1008, PIXELS. 256. ( IMAGE- 1) *2048 + LINE) 

0833 C 

6084 C transform the 512 8 bit values into 512 16 bit integers 

0085 C 

00S6 DO 1000 INDEX = 1.512 

3037 INTS( INDEX) ■= ICHAR(CPIX( INDEX) ) ! CPIX overlays PIXELS 

0088 1000 CONTINUE 

0089 C 

0090 RETURN 


90 



0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 


C 

C^toK^ERROR RETURNS 
C 

6001 URITEdERM. 8003) IMftEE. 
8003 FORMAT IMAGE NUMBER* 
GOTO 8900 


IMLO* IMHI 

13* ' OUT OF RANGE:'* 212*'.') 


C 

6101 URITECTERM, 8103) LINE* LNLO* LNHI ^ _ 

8103 FORMATC' LINE NUMBER*'* 14- ' OUT OF RANGE:'* 213* . ) 

GOTO 8900 


C 

6900 URITECTERM* 8901) 

8901 FORMATC' RDIL2 FAILS. 
RETURN 
END 


NO TRANSFER.') 


8.RD1LN T-00004 IS ON CR00021 USING 00018 BLKS R-0000 


0001 

0002 

0003 

0004 

0005 

0006 

6007 

6008 
000S 
0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
6621 
0022 

0023 

0024 
0625 
6026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 
6034 
0035 
6036 

0037 

0038 

0039 

0040 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCKCCttCCCCCCCCCCCCC 

C»oioKPARfiMETER DECLARATIONS: 

c 


INTEGER 

INTEGER 

INTEGER 


c 
c 

C>iotoKlNTRODUCTION: 
C 
C 
C 
C 
C 


PI^^LS(256) ! 512 fc*i{£>3 i-, ^ 

, conTfiL .0 :::z, 


. which horizontal line to be read from; 
. 1 inca numbered from 1 (screen top) to 


511 


pIJ^Lq r 'f ® ^®‘255) grey scale intensities 4h' 

IXELS ray ui., be filled to oapacity by RDILN. 


C»o)oklANGUAGE : 

C 

C FORTRAN 77, the HP- 1000 version for RTE-6/VM. 
C>lo)okL IMITATIONS: 


C 

C 

C 

C 


IMAGE must be a monochome imaae. The LINF r>nr.«mni 
0 and 511. If image nn i Twr ? parameter must be between 


Tf TMorir . Ti.r- K«> umeter must be bell 

f.r I'iL ’■="5"- 


and no transfer lakes place. 


pr inlec 


CJtoiokSUBPROGRAMS CALLED: 


name 


source 1 oad remarks 


range grange jjRANGE logical funcUon lhai aoIor;;i;;;rira~ 

f.rol parameter Ic uHhi„ the lost two porometers. 


L, 

C 

C>loloi;LJRITTEN B'v 
C 
C 
C 
C 
C 


l^mE^D "rNLrnn is based „as i.ruten bo 

nt M It U. rRULCON, Julu, 1983 Th-:^ .n-trj ■ r • t. ' 

. iHiS modification is by 


KEITH MILLER, 


June, 1984. 


0041 CxokhcREVISION HISTORY: 

0042 C 

0043 CnokhIOCAL VARIABLES: 

0044 C 
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0045 

004S 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
6662 
0963 

0064 

0065 

0066 
0367 
0068 
0669 
0076 
0071 

6672 

6673 

6674 

0075 

0076 

0077 

0078 

0079 

0080 
068 1 
0682 
0633 
0034 ■ 
0355 
6636 
0637 
0088 
0639 
0090 


LOGICAL RANGE 1 function that ascertains if its first parameter 

C ! is between (inclusive) its last 2 parameters 

INTEGER TERM ! the logical unit for terminal output 

INTEGER IMLO. IflHI ! the limits on COMTAL monochrome image numbers 

INTEGER LNL0> LNHI ! the limits on COMTAL image line numbers 

C ■ 

C>MokINITIALIZATIONS; 

C 

DATA TERM/1/ 

DATA IMLO/1/, IMHI/4/ 

DATA LNLO/0/, LNHI/511/ 

C 

C>io|okPR0CESSING 

C 

IF (.NOT.(RANGE(IMAGE. IMLO, IMHI))) GOTO 8001 ! error return 
IF C.NOT.(RANGE(LINE, LNL0,LNHI))) GOTO 8101 ! error return 
C 

C Programming note: 

C The EXEC call is explained in detail in the 
C HP Programmer's Reference Manual for RTE-6/VM»p.2-19f f . This 

C transfer function for the COMTAL is discussed in the 

C COMTAL User's Manual. Section 5.2.2. 1. In the EXEC call 

C that follows, the HP resident driver. DVR41. is called as 

C follows: the first parameter (1) sighifies a read; the 
C second parameter is in two parts: 36B identifies the resident 

C DVR41 driver, and 106B identifies the line transfer operation 

C of that driver; the third parameter (PIXELS) holds the data to be 

C transferee', and the fourth parameter gives PIXELS' length in words 

C (256); and the final parameter is a COMTAL command code for the transfer 
CALL EXECd. 36B+100B. PIXELS, 256. ( IMAGE- l):k2048 + LINE) 

RETURN 

C 

C>wokERR0R returns 

c 

3001 IJRITE(TERM. 8003) IMAGE. IMLO, IMHI 

8003 F0RMAT(' IMAGE NUMBER,.'. 13, ' OUT OF, RANGE :' . 212.'.') 

GOTO 8960 
C 

3101 UR I TE (TERM, 8103) LINE, LNLO. LNl-lI 

0103 FORMATC' LINE NUMBER,'. 14, ' OUT OF RANGE:', 213. '.') 

GOTO 8900 
C 

8900 WRITE (TERM. 8901) 

8901 FORMAT (' RDILN FAILS, NO TRANSFER.') 

RETURN 

END 





8.RI)IPT T=60004 IS ON CR00021 USING 00018 BLKS R-0000 

0001 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCGC 

0002 SUBROUTINE RDIPTC VALUE, IMAGE, XCOOR, YCOOR) 

0003 GCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCGCCCCCCCCCCCCGCCCCCCCCCCCCCCCCCCCCCC 

0004 C 

0005 C>»ok>iipARAMETER DECLARATIONS: 

0006 C 


000? 

INTEGER 

VALUE 

1 z v.;«i p./N.e. vu.w«, wOnv*erted from byte 


0008 C 



1 to integer. 


0009 

INTEGER 

IMAGE 

! COMTAL image number to be read from. 


0010 

INTEGER 

XCOOR, 

YCOOR! point where value is to be read from. 



0011 C 

0012 C»«lc>k INTRODUCTION: 

0013 C 

0014 G This subroutine RcoDs an Image PoinT from the COMTAL. The value 

0015 C of the pixel is an 8 bit (0-255) grey scale intensity. If (he 

0016 C image number or coordinates are out of range, an 

001? C message is printed and no transfer taKes place. 

0018 C 

0019 C>KoioHANGUAGE : 

0020 C 

6021 C FORTRAN 77 . the HP- 1000 version for RTE-6/VM. 

0022 C 

0023 C’k’K^.L IMITATIONS: 

0024 C 

0025 C The IMAGE designated 

0026 C must be a monochome image. The YCOOR parameter must be between 

002? C 0 and 511. If IMAGE or YCOOR is out of range, an error message is printed 

0028 C and no transfer takes place. 

0029 C 

6030 C>K*>;-SUBPROGRAMS CALLED: 

0031 C 

0032 C name source load remarks 

6033 C ; 

6334 C RANGE GRANGE GRANGE logical function that determines if its 

0035 C first parameter is within the last two parameters. 

0036 C ICHAR HP FORTRAN?? intrinsic function: converts a byte 

0937 C into its integer code. 

0038 C 

0039 C>toi^>t-URITTEN BY: 

0040 C 

0041 C The code on which this subprogram is based was written, by 

0042 C NETTIE D. FAULCON, July, 1983. This modification is by 

0043 C KEITH MILLER, June, 1984. 

0044 C 
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0045 Cm«5:REVIS10N HISTORY: 

0046 C 

0047 C 

0048 C>t!>i<«.LOCAL VARIABLES: 

LOGICAL RANGE ! function that ascertains if its first parameter 

! is between (inclusive) its last 2 parameters 
INTEGER TERM ! the logical unit for terminal output 

INTEGER IMLO, IMHI ! the limits on COMTAL monochrome image numbers 

INTEGER LNLO, LNHI ! the limits on COMTAL image line numbers 

INTEGER PIXELS(256)! a buffer to read a COMTAL line 
CHARACTER>kl BYTES (512) ! overlay for PIXELS buffer 
EQUIVALENCE (PIXELS, BYTES) 

0059 C>l:>K>KlNITIALI2ATI0NS: 

0060 C 

0061 DATA TERM/1/ 

0062 DATA IMLO/1/, IMHI/4/ 

0063 DATA LNLO/0/- LNHI/511/ 

0064 C 

0665 C>iotoicPROCESSING 


0049 C 

0050 
6051 C 
6652 
6053 

0054 

0055 

0056 
005? 
0658 C 


6066 

006? 

0068 

0069 

0070 
6671 
0072 
0873 

0074 

0075 

0076 
6077 

0078 

0079 
60SB 
008! 
0832 

0033 

0034 

0085 

0086 

0087 

0088 
0089 


C 


C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


IF (.NOT. (RANGEdMAGE, IMLO, IMHI))) GOTO 8001 ! error return 

IF (.NOT. (RANGE (YC00R,LNL0,LNHI))) GOTO 8101 ! error return 

IF (.NOT. (RANGE(XC00R,LNL0, LNHI))) GOTO 8201 ! error return 

Programming note; 

The EXEC call below is to the DVR41 driver, and 
is identical to the call made in RDILN. 

See the RDILN documentation for the details. 

Read the COMTAL line (horizontal) that contains the point in question: 
CALL EXECd, 36B+100B, PIXELS, 256, (IMAGE- 1 )>k 2048 + YCOOR) 
convert the byte that is to be read: 

VALUE = ICHAR(BYTES(XC00R+1) ) ! ICHAR is an intrinsic F77 function 

! which converts a character into its 
! integer code. 

! The '+1' changes from pixels, which are 
! 4:'ed 0-511 to the FORTRAN array, 1-512 

RETURN 

ERROR RETURNS 


0090 C 



0£391 _ 0001 URITEdERM, 6003) IMfiGE, IMLO, imi 

0092 8003 FORMAK' IMAGE NUMBER-', 13, ' OUT OF RANGE:', 212,'.') 

0093 GOTO 8900 

0094 C 

0095 8101 URITECTERM, 8103)YCOOR, LNLO, LHHI 

0096 8103 FORMATC' Y COORDINATE,', 14, ' OUT OF RANGE:', 214, '.') 

009? GOTO 8900 

0098 C 

0099 8261 URITECTERM, 8203)XCOOR, LNLO, LNHI 

6100 8263 FORMATC' Y COORDINATE,', 14, ' OUT OF RANGE:', 214, '.') 

0101 GOTO 8900 

0102 C 

0103 8900 URITECTERM, 8901) 

0104 8901 FORMATC' RDIPT FAILS. NO TRANSFER. ' ) 

0105 RETURN 

0106 END 


96 



8,RD1RC T=E0004 IS ON CR00021 USING 00004 BLKS R-=0000 


6601 

0082 

0093 

0004 

0005 
6606 
0007 
0063 

0009 

0010 
6811 
6612 
6013 
0314 
0615 
6816 
601 ? 
0813 
0019 
6320 
6021 
0622 

0023 

0024 

0025 
6026 
6027 
0028 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
SUBROUTINE RDIRC(OUTfiRfi, XDIM. YDIM, IMAGE. UPLFX, UPLFY) 
CCCCCCCCCCCCCCCCCCCCCCC6CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C>K>io!:PARftMETER DECLARATIONS: 


C 

INTEGER XDIM. YDIM 
INTEGER OUTARACXDIM. YDIM) 

INTEGER IMAGE 
C 

INTEGER UPLFX. UPLFY 
C 
C 

c 

C>i;>(oMNTRODUCTION: 

C 

c 

C Th 0 subrouiinp ReaD Image ReClangle transfers pixel values from a 
C designated section of an image to an integer array. Note that although 

C pixel values are generally stored with 1 byte/pixel. RDIRC places each 

C numeric value into a 2 byte integer in OUTARA. 

C XDIM. YDIM. IMAGE. UPLFX. and UPLFY are all checked for possible out 

C of rahge errors before any transfer is attempted. 

C 


dimensions of the output array. OUTARA 

the array to be filled 

the number of the COMTAL image from 

which OUTARA is to be filled 

the image coordinates of the upper left 

corner of the rectangle of pixels that is 

to be read into OUTARA. 


C>k>k>HANGUAGE : 

C 

C FORTRAN 77. the HP- 1000 version for RTE-6/VM. 
C 


0029 C>!c>k>; LIMITATIONS: 

6639 C 

0331 C RDIRC does a great deal of error checking before initiating the 

0632 C transfer. If the programmer can verify that all calls to RDIRC 

6333 C will be legal, these checks could be commented out to improve 

6334 C machine efficiency. Also, the call to the subroutine RDILN could 

6G35 C be replaced inline by the RDILN code (which is short). 

6936 C 

0337 SUBPROGRAMS CALLED: 

0338 C 


6633 

0049 

C 

C 

name 

source 

load 

remarks 







6841 

C 

RDILN 

8.RDILN 

%RDILN 

transfers a line of bytes from a 

COMTAL image 

6042 

C 

RANGE 

GRANGE 

♦GRANGE 

logical function that determines 

of its f irst 

6643 

6044 

C 

c 

ICHAR 



■parameter is within the last two 
HP FORTRAN?? intrinsic function; 

parqmet ers 
converts a 



0045 C byt9 into its integer code. 

0045 C 

0647 C»ok>iIJRITTEN BY: 

004B E 

0049 C The code on uihich this subprogram is based was written by 

0050 C NETTIE D. FAULCON- July. 1983. This code was written by 

0051 C KEITH MILLER. July. 1984. 

6052 C 

0653 C>mo!-REVISION HISTORY: 

0054 C 

0055 C 

0056 C*5k*L0CAL VARIABLES; 


0357 

C 





0058 


INTEGER 

IMROU. IMCOL ! 

a location in the image 


0359 


INTEGER 

ARAROU. ARACOL ! 

a location in OUTARA 


0060 


INTEGER 

ICHAR ! 

inthihsic byte to integer 

conversion 

0061 

C 



f unct ion 


6062 


LOGICAL 

RANGE ! 

function that ascertains 

i f the f irst 

0063 

C 


\ { 

parameter is within the last two parameters 

0064 


INTEGER 

IMLO. IMHI ! 

limits on COMIAL image numbers 

0065 


INTEGER 

LNLO. LNHI ! 

limits on COMTAL pixel coordinates 

0066 


INTEGER 

LNCNT ! 

LNHI-LNLO+1. # of pixels 

in an image 1 ine 

0067 


INTEGER 

TERM ! 

logical unit for terminal 

output 

0068 


integer 

IBUF (256) ! 

buffer to hold COMTAL horizontal line 

0069 


CHARACTER>kl CBLIF(512) ! 

overlay for IBUF 


0070 


EQUIVALENCE (IBUF. CBUF) 



0071 

C 





0072 

C>Moi:INITIALIZATIONS: 



0073 

C 





0074 


DATA 

TERM/1/ 



0075 


DATA 

IMLO/1/. IMHI/4/ 



0076 


DATA 

LNLO/0/. LNHI/511/. 

LNCNT/512/ 


0077 

C 





0078 

CMotol-PROCESSING 



0079 

C 





6080 


IF (.NOT. (RANGE (I MAGE. 

IMLO. IMHI )))G0T0 8001 ! 

error return 

6081 


IF (.NOT. (RANGE (XDIM. 

1. LNCNT)))G0T0 8101 ! 

error return 

0082 


IF (.NOT. (RANGE(YDIM. 

1. LNCNT))) GOTO 8201 ! 

1 error return 

6SS3 


IF (.NOT. (RANGE (UPLFX. 

LNLO, LNHI )))G0T0 8301 

! error return 

0084 


IF (.NOT. (RANGE (UPLFY. 

LNLO, LNHI )))G0T0 8401 

! error return 

0085 


IF (.NOT. (RANGE (UPLFX+XDIM- 

-1. LNLO. LNHI )))G0T0 8501 

! error return 

6086 


IF (.NOT. (RANGE(UPLFY+YDIM- 

-1, LNLO. LNHI )))G0T0 8601 

! error return 

008? 

G 





0688 

C 

we get 

io this point if the transfer is to take place 

6033 

C 





0090 


IMROU ■= UPLFY 




98 



BQ91 

0092 

0093 


DO 2000 ARAROU = 1. YDIM 

CALL RDILNCIBUF, IMAGE, IMROIJ) 

IMROuJ = IMRDU + 1 ! incremGnt for next pass thru 2000 loop 


0094 

0095 

0096 
009? 
0098 
6099 
0100 
0161 
0102 
0103 
6104 
0105 
0166 
0107 
0103 
0109 


! the next line initializes the column pointer; 
IMCOL = UPLFX + 1 ! the ''+1“ is necessary because COMTAL image 

! coordinates range from 0 to 511 and the 
! FORTRAN array indices range from 1 to 512. 


DO 1000 ARACOL » 1, XDIM 

OUTARACARAROU, ARACOL) = I CHAR <CBUF (IMCOL) ) 
IMCOL «= IMCOL + 1 
I860 CONTINUE 
2060 CONTINUE 

RETURN ! successful termination 


C 

C=t:>k>i'ERR0R RETURNS: 

C 

8661 UR I TE (TERM, 8003) IMAGE, IMLO, IMHI 

8003. FORMAT (' IMAGE NUMBER.', 13, ' OUT OF RANGE:', 214,'.') 


0110 
01 1 1 
0112 

0113 

0114 

0115 

0116 

0117 

0118 
6119 
0120 
0121 
0122 

0123 

0124 

0125 

0126 


GOTO 8900 


8101 URITE(TERM, 8103) XDIM. 1, LNCNT 

8163 F0RMAT(' X DIMENSION,', 14, ' OUT OF RANGE:', 215,'.') 
GOTO 8900 


8261 UR ITE (TERM, 8203) YDIM, 1, LNCNT 

8263 F0RMAT(' Y DIMENSION,', 14, ' OUT OF RANGE:', 215,'.') 
GOTO 8900 


C 

8361 URITE(TERM, 8303) UPLFX. LNLO, LNHI 
8363 FORMAT (' X COORDINATE FOR CORNER.', 14, 
GOTO 8900 


OUT OF RANGE;', 215,' .') 


8461 URITE(TERM, 8403) UPLFY, LNLO, LNHI , 

8463 F0RMAT(' Y COORDINATE FOR CORNER, ', 14, ' OUT OF RANGE: ,215, . ) 

GOTO 8900 


0127 
0123 
6 ! 29 
6130 

0131 

0132 

0133 

0134 

0135 

0136 


C 

8501 URITE(TERM, 8503) UPLFX, XDIM, LNLO, LNHI 

8563 F0RMAT(' X. COORDINATE FOR THE CORKER AND THE X DIMENSION ', 

1 ' OF THE ARRAY',/, ,' OVERFLOU IMAGE BOUNDARIES.', 

2 ' X COORDINATE =', 14, 'X DIMENSION =' ,• 14, /, 

3 ' IMAGE COORDINATE LIMITS ARE ', 215, '.') 

GOTO 8900 

C 

8661 URITE(TERM, 8603) UPLFY, YDIM, LNLO, LNHI 

8603 FORMAT(' Y COORDINATE FOR THE CORNER AND THE Y DIMENSION ', 



613? - 1 ' OF THE PIRRAY',/, ' OVERFLOU IMAGE BOUNDARIES.'. 

6138' 2 ' X COORDINATE 14. 'X DI^ENSION ='. 14. /. 

6139, 3 ' IMAGE COORDINATE LIMITS ARE '. 215. 

0140 GOTO 8900 

0141 C 

0142 8960 WRITE (TERM. 8903) 

0143 8963 FORMAT(' RDIRC FAILS. NO TRANSFER TAKES PLACE.') 

0144 RETURN 

0145 END 
6!4o 

0147 
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8.RDLUT T=00004 IS ON CR00021 USING 00018 ELKS R-0000 


0001 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0002 SUBROUTINE RDLUTCTfiBLE, LUTNUM) 

0003 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0004 C 

0005 CJlotokPftRftMETER DECLPiRATIONS: 

0006 C 

0007 
0008' C 

0009 C 

0010 C 

0011 

0012 C 

0013 C 

0014 C>K)IokINTRODUCTION; 

0015 C 

0016 C The sutoroji ine ReaD LooK-Up Table (LUT) reads Ihe COMTftL mapping from 

0317 C the integers 0-255 into the integer arrag TABLE. This LUT can be used 

0016 C for grey lewl enhancements in the COliTAL. A similar subroutine 

0819 C called RDPSU is used to read from a pseudocolor look-up table. This 

0020 C routine is only used for grey scale look-up tables. 

002 1 C 

0022 C>ioIokLANGUAGE: 

0023 C 

0024 C FORTRAN 77 , the HP- 1800 version for RTE-6/VM. 

0025 C 

0026 C>K>k>!!L IMITATIONS: 

0027 C 

0028 C Although 8 bits are sufficient for the look up table values* full 

8829 C integers are used in TABLE. This format is dictated by the COMTAL 

0030 C conventions as given in section 5.2.3. 1. 

603 1 C 

0032 C>Wo!!SUBPROGRAMS CALLED : 

8033 C 

8334 C name source load remarks 

0036 C RANGE aRANGE SiRANGE logical function uhich determines if its 1st 

0037 C parameter is uithin its 2nd and 3rd inclusive. 

0038 C 

0039 C:;";";-l.JRITTEN BY: 

0043 C 

0841 C The code on which this subprogram is based was written by 

0042 C NETTIE D. FAULCON* July* 1983. This subprogram was written by 

6043 C KEITH MILLER* July* 1984* with the support of a NASA-ASEE 

0044 C summer fellowship. 


INTEGER TABLE (256) 


INTEGER LUTNUM 


the values of the specified COMTAL look-up 
table are read into this array. The 0 entry 
goes into TABLE(l)* ...* the 255 entry goes 
into TABLEC256). 

the number of the COMTAL look-up table (called 
“function memory" in the COMTAL literature). 



0045 

0046 

0047 
004S 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 
0877 
0073 
0379 
6030 
6631 
0632 
0383 
6034 
6335 
6633 
0637 

0038 

0039 
0090 


C 

CitotokREVISION HISTORY: 

C 

C 

C>toioKLgCAL VARIABLES: 

C 

LOGICAL RANGE 
C 

INTEGER TERM 
INTEGER LLITLO.LUTHI 
C 

C>ioioKINITIALIZATIONS: 

C 


I logical function which determines if its 1st 
! parameter is within its 2nd and 3rd inclusive. 
! logical unit for terminal output 
! limits for COMTRL function memories 


DATA TERM/1/ 

DATA LUTLO/1/, LUTHl/4/ 


C 

C>mokPROCESSING 

C 


IF (.NOT. (RANGE(LUTNUM,LUTLO.LUTHim GOTO 8001 ! orrnr return 

c 

C Programming notes: 

C The EXEC command parameters are discussed in the HP RTE-6/VM 
C Programmer's Reference Manual, 2-19ff. The COMTAL parameters 

C are discussed in section 5.2.3 of the COMTAL User's Manual. 

C 

C The first parameter to EXEC identifies the EXEC command as 
C a read command. The second parameter identifies the resident 
C HP driver (36B) and gives the code (2008) that identifies this 
C operation, a transfer to a COMTAL function memory (Look-Up Table). 
C The third parameter gives the Look-Up Table values (TABLE), 

C and the fourth parameter gives the length of TABLE in words. 

C The f ifth parameter is a COMTAL cod© that is described bit by 

C bit in the User's Manual. In short, bit 15 signifies write to 
C COMTAL, bit 14 designates function memory instead of pseudocolor, 

C bit 12 signifies standard replacement, and bits 88.9 identify the 
C function memory to be used. (Bits are numbered 15 high, 0 low). 

C 

CALL EXICi 1, 36S+200B, TABLE, 256, ( (LUTNUM- 1 )*256) ) 

RETURN 


C 

C!»!^*ERR0R RETURN 
C 


8001 URITE(TERM, 8003) LUTNUM, LUTLO, LUTHI 

8003 T0RMAT(' THE FUNCTION MEMORY NUMBER, ', 14, ' , IS OUT OF RANGE:', 
1 214, '.') 

8900 UR I TE (TERM, 8901) 


102 



0091 8901 FORMftK' RDLUT FAILS. NO TRANSFER FROM COMTAL.') 

0092 END 



6RDPSU T*=00004 IS ON CR00021 USING 00016 ELKS R-0000 


0001 

0002 

0003 

0004 

0005 

0006 
006 ? 
0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 
001 ? 
0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 
8026 
0027 
0828 
6029 

0030 

0031 

0032 

0033 
0334 

6035 

6036 
063? 
0S3S 
6639 

0643 

0041 

0042 

0043 

0644 


subroutine RDPSUC TABLE) 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccCcccccccccc 


CxoiokPARAMETER DECLARATIONS: 
C 


C 

C 

c 

c 


INTEGER TABLEC768)! ih® 'v^luss O'^ 


vsiusc; Of ths specif isd COITTAL IooK“i;p 
! tab Is ar© read into this array. The RED table 
! is ir. TABLE (1:256); the GREEN, in TABLE (25?: 5 12) 
! csnd the BLUE, in TABLE(513:?68) . 


CXoiokINTRODUCTION: 

C 

C The subroutine ReaD the PSeUdocdlor table reads the 3 COMTAL mappings 
C ,rom 0-255 which comprise the pseudocolor table. Note that the v-alues 
L are placed into TABLE in the order RED, GREEN, and BLUE. 

C>tok*LANGUAGE : 


C 

c 

c 


FORTRAN ??, the HP-1000 Version for RTE-6/VM. 


C>lolokL IMITATIONS: 

C 

C Although 8 bits are sufficient for the look-up table values, full 

C integers are used in TABLE. This format is dictated by the COMTAL 

C conventions as given in section 5.2.3. 1. 

C 

C»olo^tSUBPROGRAMS CALLED: 


C 

C NONE. 

C 

C>!»lttl!lJRITTEN BY: 

C 

C The code on which 

C NETTIE D. FAULCON. 

C KEITH MILLER, July 

C summer fellowship. 

C 


this subprogram is based was written by 
July. 1983. This subprogram was written by 
. 1984, with the support of a NASA-ASEE 


C5I:>!~KREVISI0N HISTORY: 

C 

C 


C>blokL0CAL VARIABLES: 
C 

C NONE. 


104 


0045 

0046 

0047 

0048 

0049 

0050 

0051 
8652 
0653 

0054 

0055 

0056 
0857 
0058 
0B5S 
0060 
0061 
6062 
6663 
6064 
6865 
0666 
0067 
6068 
0669 
0070 
0871 
0672 
0073 
6674 
0075 


C 

C>WoKlNITIftLIZftTIONS: 

C 

C NONE 
C 

C>to)okPROCESSING 

C 

C Programming notes*. 

C The EXEC command parameters are discussed in the HP RTE-6/VT1 
C Programmer's Reference Manual, 2-19ff. The COMTflL parameters 

C are discussed in section 5.2.3 of the COMTftL User's Manual. 

C 

C The first parameter to EXEC identifies the EXEC command as 
C a read command. The second parameter identifies the resident 
C HP driver (36B) and gives the code (3008) that identifies this 
C operation, a transfer from the COMTftL pseudocolor table. 

C The third parameter gives the array that will hold the values, 

C and the fourth parameter gives the length of TftBLE in words. 

C The f if th parameter is o COMTAL code that is described bit by 

C bit in the User's Manual. The DVR41 driver takes care of all the 
C bits except 8&9 which identify the color to be transferred. 

C 

C Note that we make three separate calls to EXEC. Each call fills 

C different section of TABLE with a different color of the COMTAL's 

C pseudocolor table. 

C 

CALL EXEC( 1, 36B+300B, TftBLE(l), 256, \*-25S ) ! red 

CALL EXECC 1, 36B+300B, TABLE (257), 256, 0>k256 ) ! green 

CALL EXEC( 1, 36B+300B, TABLE (5 13), 256, 2*256 ) ! blue ■ 

RETURN 

END 



&RDTAB T*00004 IS ON CR00021 USING 0001S BLKS R-0000 


0101 

0002 

0003 

0004 

0005 
0106 
060? 
0000 
6009 
0010 
Bill 
0012 

0013 

0014 
0010 
0016 
031? 
0018 

0019 

0020 
0021 
0022 
0023 

6024 

6025 
0026 
602? 
0028 
0629 

0030 

0031 

0032 
6033 
8334 
6335 
0036 
063? 
6038 
0039 
6040 

0041 

0042 
6043 
0044 



C>Moi<PftRAMETER DECLftRfiTlONS: 

C 

INTEGER TABLEdS) ! holds the imoge/grcphics table from COMTAL. 
INTEGER uNUMB f COtTTAL image or graph humtaer. 

INTEGER IMOGR ! ''IMago Or GRaphicsd 0-Imaqe, 1-Graphics. 

C * 

CJfotoKiNTRODUCTION: 

C 

C This Subroutine ReaDs the TAEle associated with the image or graphics 
C metnory plane identified by CNUMB (the COMTAL image or graphics number) 

C and IMOGR (which is either a 0, indicating an image, or 1, indicating 
G a graphics plane. The 16 word, 32 byte table goes into TABLE. 

C 

C>to)okLANGUARE : 

C 

C FORTRAN ??, the HP- 1000 version for RTE-6/VM. 

C 

CMoibkL IMITATIONS: 

C 

C IMOGR must be cither a 0 or o 1, and CNUMB must be between 1 and 9 
C inclusive. If either number is out of range, no transfer takes place. 

C 

C>ie!<*SUBPROGRAMS CALLED: 

0 

C name source 1 oad remarks 

C 

C RANGE 8.RANGE JiRANGE logical function that determines if its 
C first parameter is within the last two parameters. 

C BTEST - HP FORTRAN?? instrinsic function that takes On 

C integer argument and returns .TRUE, or .FALSE. 

0 according to the bit selected by its second 

0 argument; bit = 0, FALSE returned. 

C 

C>5o:"X;l,Ji?ITTEN BY: 

C 

C The code on which this subprogram is based was written by 
C NETTIE D. FAULCON, July, 1983. This modification is by 
C KEITH MILLER, June, 1984. 

C 

C»l»lo|:REVISI0N HISTORY: 
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0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 
005? 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

6076 

6077 
0073 
6079 

0630 

0631 
0082 
0083 
6034 
0635 
0086 

0087 

0088 

0089 

0090 


C 

C 

C>mokL0CAL VARIABLES; 

C 

LOGICAL RANGE 
C 

LOGICAL BTEST 
INTEGER TERM 
INTEGER DGLO, DGHI 
INTEGER BTLO, BTHI 
C 

c 

C>mokINITIALIZATIONS: 

C 


function that ascertains if its first parameter 

is between (inclusive) its last 2 parameters 

is a certain bit on or off. 

the logical unit for terminal output 

the limits on single DiGit image/graphics numbers 

the limits on COMTAL graphics values 

XCOOR; bits numbered 0-15* right to left. 


DATA TERM/l/ 

DATA DGLO/1/, DGHI/9/ 

DATA BTLO/0/, BTHI/1/ 

C 

C>K)iokPR0CESS ING 
C 


IF (.NOT. (RANGE (CNUMB*DGLO*DGHI))) GOTO 8001 ! error return 
IF ( . NOT. (RANGE ( IMOGR* BTLO* BTH I ) ) ) GOTO 8101 ! error return 
C 

C Programming note: 

C The EXEC call below is to the DVR41 driver. 

C The first argument* "1"* identifies the operation as a read. 

C The second argument has two parts: “368" identifies the DVR41 driver, 

C and "500B" selects a transfer code » 3 operation of that driver. 

C The third argument* "TABLE"* is the buffer that will hold the IGT 

C (" Image/Graphics Table") information after the EXEC is completed; 

C the fourth argument* "16"* gives the length of TABLE in words. 

C The final parameter is a code to the COMTAL which identifies the 

C mode of the transfer ("75K4096"), mode 7; selects either image or 

C graphics ( " IM0GR>:<128 " ) ; and gives the number of the image/graphics 

C memorg plane ( "CNUMB-1 ") . 

C 


CALL EXEC( l*3bB-:-500B*TABLE* 16* 7>k409S + IM0GR*128 + CNUMB-1) 
RETURN 
C 

CxokJkERROR RETURNS 
C 


8001 bJRITE(TERM* 8003) CNUMB* DGLO* DGHI 

8003 F0RMAT(' COMTAL NUMBER*'* 13* ' OUT OF RANGE;'* 212*' ') 
GOTO 8900 
C 


8101 LJRITE(TERM* 8103) IMOGR* BTLO* BTHI 



0091 

0092 

0093 

0094 

0095 

0096 

0097 


8103 FORMAT IMAGE/GRfiPHlCS ARGUMENT MUST BE 0 OR 1, NOT 
GOTO 8900 

8900 URITECTERM, 8901) 

8901 FORMAT(' RDTAB FAILS. NO TRANSFER.') 

RETURN 

END 


'. 14 .'.') 
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&RDTfiR T=00004 IS ON CR00021 USING 00012 BUS R-0000 


000 1 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0002 SUBROUTINE RDTARCXCOOR, YCOOR) 

0003 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0004 C 

0005 C>K’K*PARftliETER DECLARATIONS: 

0006 C 

0007 INTEGER XCOOR ! X coordinate of the COMTAL target locosion. 

0068 INTEGER YCOOR ! Y coordinate of the COMTAL target location. 

0009 C 

0010 C>toloKlNTRODUCTION: 

0011 C 

0012 C This subroutine ReaDs the TARgel (cursor) location from the COMTAL. 

0013 C 

0014 C:»oM«L ANGU AGE : 

6015 C 

0016 C FORTRAN 77, the HP- 1000 v,-ersion for RTE- 6 /VM. 

0017 C 

0018 CHoiokL IMITATIONS: NONE 

0019 C 

0020 C«oioKSUBPROGRAMS CALLED: NONE 

0021 C 

0022 CxolokLJRITTEN BY: 

0023 C .w u 

6824 C The code on which this subprogram is based was written by 

6025 C NETTIE D. FAULCON, July, 1963. This modification is by 

0026 C KEITH MILLER, June, 1984. 

0027 C 

0028 C^mohREV IS ION HISTORY: 

0029 C 
6030 C 

0031 C^wtoKLOCAL VARIABLES: 

0032 C 

0033 INTEGER IBUFC2) ! the buffer to hold the COMTAL data transfer 

0034 C 

6035 C»:»!>«INITIALIZATIOh!S: NONE 

6036 C 

0037 Cm^x^^PROCESSING 

0038 C 

0039 C Programming note: 

0040 C The EXEC call is explained in detail in the 

004 J c HP Programmer's Reference Manual for RTE-6/VM,p.2-19f f . This 

0042 C transfer function for the COMTAL is discussed in the 

6843 C COMTAL User's Manual, Section 5.2.4. In the EXEC call 

6044 C that follows, the HP resident driuer, DVR41, is called as 
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0045 C 

0046 C 

0047 C 
0848 C 

0049 C 

0050 C 

0051 C 

0052 C 

0053 

0054 

0055 

0056 

0057 


follows! the first parameter (1) signifies a read; the 
second parameter is in two parts: 36B identifies the resident 
DVR41 dri'-'er, and 4008 identifies the target transfer operation 
of that driver; the third parameter (IBUF) will hold the COMTAL data 
to be transfered, and the fourth parameter gives the length in words 
(2); the final parameter is a COMTAL command code for the transfer, 
(00000B) . 

CALL EXECU, 36B+490B, IBUF, 2, 00800B) 

XCOOR = IBUF(l) 

YCOOR = IBUF (2) 

RETURN 

END 
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E.SETV T-00004 IS ON CR00021 USING 00004 BLKS R*=0000 


0001 

0002 

0803 

0804 

0805 
600G 
0007 
6068 

0009 

0010 
6011 
0012 

0013 

0014 

0015 
0018 
001 ? 
6018 

0019 

0020 
0021 
6022 

0023 

0024 

0025 
6626 
602? 
0028 

0029 

0030 
6031 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE SETV( IMAGE) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

CxofokPARAMETER DECLARATIONS: 

C 

IMAGE ! Ihs COMTAL irnogs riurrtosr to bs ccsigriecJ to ths 
C ! video camera; 5 is traditional. 

C 

C>Moi<INTRODUCTION: 

C 

C The subroutine "SET Video" establishes the image number that is to be 
C associated with the video camera, and displays the camera input. 

C 

CxoiokLANGUAGE: 

C 

C FORTRAN ??, *the HP- 1000 version for RTE-6/VM. 

C 

C)toiolcL IMITATIONS: 

C 

SETV should only be called once during a COMTAL session. If the 
camera is already set to IMAGE and SETV is called, the COMTAL 
freezes. Manually reset the COMTAL with the SHIFT- to release any 
previous SETV command. 


Note that IMAGE should not be an image number used for COMTAL memory. 
For programming convenience, uie insist on a single digit. 5 is 
traditional in this lab, but 5-9 will do. 


C>io)ol<SUBPROGRAMS CALLED: 
C 


‘6632 

0033 

C 

c 

name 

source 

1 oad 

0034 

c 

CMMND 

LCMMND 

IfCMMND 

0335 

c 




6036 

c 

DIGIT 

G.DIGIT 

%DIGIT 

003? 

c 




0030 

c 

RANGE 

G:RANGE 

GRANGE 

0100 9 

c 




6046 

c 




0041 

C***UIRITTEN 

BY: 


0042 

C 




6643 

C 

The code 

on which this 

0044 

C 

NETTIE D 

. FAULCON, Juli 


M IV wwi 1 1 rik. Wilvi Ik* 

they are much 1 iKe COMTAL Keyboard commands, 
character*! function that returns '0'-'9' 
according to integer input 0-9. 
logical function which determines if its 1st 
argument is within the 2nd and 3rd, inclusive, 
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004? 

0048 

0049 

0050 

0051 

0052 

0853 

0854 

0055 

0056 
085? 
0858 

0059 

0060 
806 1 
0862 

0063 

0064 

0065 

0066 
006? 
0068 
0069 
09?0 
60? 1 
00?2 
0073 
00?4 
08?5 
0i0?6 
607? 
8073 
0079 

0‘^''r!3 

0381 

6832 

0633 

0334 

0685 

0635. 

0937 

00S8 

6039 

0090 


C KEITH MILLER, July, 
C summer fellowship. 

C 


CMofoljREVISION HISTORY: 
C 

c 


1984, with the support of a NflSft-fiSEE 


C>i»K>i<LOCftL VARIABLES:' 

C 

LOGICAL RANGE ! 

C ! 

CHARACTER>i:l DIGIT ! 

C ! 

INTEGER IBUFU28) ! 

C ! 

CHARACTER«c255 CBUF ! 

EQUIVALENCE (IBUF,CBUF) 

INTEGER VT)L0,VDHI ! 

C ! 

INTEGER TERM ! 

C 

C»o1oKINITIALIZATI0NS: 

c 


function which determines if its 1st argument 
is within the 2nd 8. 3rd arguments, inclusive, 
function that returns '0'-'9' according 
to integer input 0-9, 

holds COMTAL keyboard command strings for 
use with CMMND. 
overlays IBUF. 

the limits on video image number; one digit, 
but not a e reserved for image memory, 
logical unit number for terminal input 


DATA VDLO/5/, VDHI/9/ 

DATA TERM/1/ 

C 

CsrtokPROCESSING: 

C 


IF (.NOT. (RANGE (IMAGE, VDL0,S/DHD)) GOTO 8001 ! error return 
C 
C 

C the following COMTAL command is expanded to: 

C Set Video image =!M; Display Image 

C where =:>! is the digit equal to IMAGE, 

C This command will hang up the COfiTAL if the camera is already 
C set to IMAGE. However, we can't do a RELEASE just to be sure, 

C because if the camera is NOT set to IMAGE, then a RELEASE also 

C hangs up! (catch-22.) If the mode 7 !GP table transfer is 

C incorporated into DVR41, perhaps the table can be inquired 

C about SET or not SET. However, the COMTAL Users Manual is not 
C clear on that matter. 

C 

CBUF = 'S V '//DIGIT(IMAGE)//' SD I '//DIGIT( IMAGE) 

CALL CMMNDdBUF, 12) 

RETURN 

C 

C>!::t»i<ERR0R RETURNS: 
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0091 C 

0092 8001 WRITE (TERM.8003) IMAGE. VDLO. VDHI 

0093 8003 FORMATC' YOUR IMAGE ARGUMENT,', 14,', IS OUT OF RANGE:' 

0094 C 

0095 WRITE (TERM, 8901) 

0096 8901 FORMATC' SETV FAILS. NO ACTION TAKEN.') 

009? C 

0098 RETURN 

0099 END 
6100 


, 214 ) 
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G.SPLIT T=00004 IS ON CRB0021 USING B0B05 BLKS R=B0B3 


B00 1 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc , 

0002 SUBROUTINE SPLITCBYTEl, BYTE2, INBYTE) 

0003 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


0004 C 

0005 PARAMETER DECLARATIONS: 


0006 

0807 

0008 

0009 

0010 
0011 
0012 
0013 

6014 

6015 

6016 
6617 
6018 

0019 

0020 
6021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 


C 

C 

c 


INTEGER BYTEl 
INTEGER BYTE2 
INTEGER INBYTE 


on 
1 1 ~ 


i i 


efi (high order) 

_^yle of INBYTE in iiz right (lou; order) byte, 
on output/ this integer holds the right (lou order) 
byte of INBYTE in its right Clou order) byte, 
the input integer whose two bytes are to be SPLIT. 


C 

C>K?i<)(aNTR0DUCTI0N: 

C The subroutine SPLIT taKes each of the two bytes of INBYTE and 

C interprets each byte as a separate integer. The two resulting 

C numbers are assigned to BYTEl (which gets the high order byte of 

C INB’YTE) and to bWeB (which gets the low order byte). 

C 

C»f<>!LANGUAGE : 


C FORTRAN 77, the HP- 1000 version for RTE-6/VM. 
C 

C*>k>!llMITATIONS: 


C 

C None. 

C 

C>iok>i-SUBPROGRAMS CALLED: 
C 

C None. 


0031 

0632 

6033 

6834 

0035 

0636 

6037 

0038 

0039 
6048 

0041 

0042 
0643 
0844 


u 

C>i'>K>;:LJRITTEN BY; 

C 

c The code on which this subprogram is based was written by 
C NETTIE D. FAULCON, July, 1983. This subprogram was written by 
C KEITH MILLER, July, 1984, with the support of a NASA-ASEE 
C summer fellowship. 

C 

C>t^>K>tREVISION HISTORY: 

C 

C 

C>l»!<>H-0CAL VARIABLES: 

C 

INTEGER IHOLD ! an INTEGER interpretat ion of bits 
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0045 _ • 

6046 ~C 
004? 
0643 

0049 C 

0050 

005 1 C 

0052 

0053 

0054 

0055 

0056 

6057 

6058 C 

0059 

0060 


CHARACTER CH0LD(2) ! a CHARACTER inlerpreial ion of bits 

INTEGER IMERGE ! an INTEGER interpretalion of bits 
CHARACTER CSPLIT(2) ! a CHARACTER interpretation of bits 

EQUIVALENCE (IHDLD. CHOLD), (ItiERGE, CSPLIT) 

II-ERGE = INBYTE 

IHOLD = 0 ! zero out high order bits 
CH0LD(2) = CSPLIT(l) 

BYTEl = IHOLD 
CH0LDC2) = CSPLITC2) 

BYTE2 = IHOLD 

RETURN 

END 


&SPRED T=00004 is ON CR00021 USING 00004 ELKS R=0000 


0001 

0'002 

0003 

0004 

0005 

0006 
000 ? 
0609 

0009 

0010 
0611 
0012 

0013 

0014 

0015 

0016 
001 ? 
0018 

0019 

0020 
0021 
0022 

6023 

6024 

0025 

0026 
082 ? 
0328 
0029 
0033 

0031 

0032 
6033 
0634 

6035 

6036 
003? 
6333 
6333 
6343 
8041 
6042 
0343 
6044 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE SPREDUmGE) 

Cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C^lolokPftRftMEtER DECLftRftTIONS: 

C 


INTEGER IMAGE ! ths no-mtesr 
C 

C>!::H>!<INTRdDUCTION: 


of the COMTAL image to 



C 

C The subroutine SPREoD toKes as input ond output o COMTAL image. 

C The subroutine requihes two passes through the iirage. On the 

C first pass* SPRED determines the high and lou pixel values in 

C the image. On the second pass. SPRED replaces each pixel value 

C X with (X~lou!est) >l< (255/(highest~louesO 1 . If the lowest and 

C highest value are identical, no pixels are replaced and no message 

C is printed. If the lowest value is 0 and the highest 255. no 

C pixels are replace and nc message is printed. 

C 

C>tolokLANGUAGE : 

C 

C FORTRAN ??. the HP- 1000 version for RTE-6/VM. 

C 

CxoioxL IMITATIONS: 


C 

C The present implementation reads from the COMTAL image twice. This 

C could be speeded up by placing the pixel values into a virtual array 

C during the first pass. Also, the decision not to change a uniform 

C grey image at all is arbitrary ^'but def ens ital e . . . how do you stretch 

C a constant value?). 

C 

CXo!o!«SUBPROGRAMS CALLED: 

C 

C name source load remarKs 

C 

C RDIL2 G;RDIL2 %RD!L2 reads a horizontal line of pixels from the 

C COMTAL. and places the values in INTEGER arra 

C URIL2 
C 

C HILO 
C 

C IFIX 

U 

C FLOAT 


6WRIL2 %L'JRIL2 writes c horizontal line of pixels from an 
integer array to a COMTAL image. 

G:HIL0 %HIL0 passes tlirough a COMTAL image and returns the 
highest and lowest pixel value found. 

FORTRAN IV intrinsic function; converts from 

real to integer. 

FORTRAN IV intrinsic function; converts from 
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0045 C integer to reol . 

0046 C 

0047 C»>o(okURITTEN BY: 

0048 C 

0049 C The code on which this subprogram is based was written by 

0050 C NETTIE D. FAULCON- July> 1983. This subprogram was written by 

0051 C Keith Miller> July> 1984> with the support of a NASA-ASEE 

0052 C summer fellowship. 

0053 C 

0054 C>MokREVISION HISTORY: 

0055 C 

0056 C 

0057 C>to)ol!L0CAL VARIABLES: 

0858 C 

0059 INTEGER IBUF(512) ! holds pixel values read/'wr itten to/from COMTAL 

0060 INTEGER HIGH, LOU ! high and low pixel values in the IMAGE 

0061 INTEGER PXHI, PXLO ! limits of pixel values. 

0062 INTEGER LNLO, LNHI ! limits on COMTAL line numbers 

0063 INTEGER ROU, COL ! indices for COMTAL images and the arrays. 

0064 INTEGER TERM i logical unit for terminal output 

0065 REAL FACTOR ! the scaling factor for doing the contrast spread 

0066 C 

0067 C>toioKlNITIALIZATIONS: 

0068 C 

0069 DATA PXLO/0/, PXHI/255/ 

0070 DATA LNLO/0/. LNHI/511/ 

0071 DATA TERM/1/ 

0072 C 

0073 C>ioio|!PROCESSING 

0074 C 

0075 CALL HILO (HIGH, LOU, IMAGE) ! get highest and lowest pixel values 

0076 C ! in the image 

0077 C 

0078 IF (HIGH .LE. LOU) GOTO 9993 ! no processing required 

0079 URITE(TERM, 3501) HIGH, LOU 

E8S0 3501 FORMATC' SPRED DIAGNOSTIC. HIGH AND LOU ARE ’, 214, '.*) 

0081 IF ((HIGH .EQ. PXHI) .AND. (LOU .EQ. PXLO)) GOTO 9999 ! no processing 

0082 C 

0083 FACTOR = 255.0 / FLOAT(HIGH-LOU) 

0084 C 

0335 C During the soconcl pass, replace each pixel in the image with a 

0886 C new pixel that has been spread linearly according to HIGH and LOU 

0087 C . ■ ■ 

0088 DO 4000 ROU = 1,512 

0089 CALL RDIL2(IBUF, IMAGE, ROU) 

0090 DO 3008 COL = 1,512 
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0691 

0092 

0093 

0094 

0095 

0096 

0097 
0698 


IBUF(COL) = IFIX(FLOfiT(IBUF(COL)-LOlJ) 
3000 CONTINUE 

CALL URIL2(IMftGE,R0U,IBUF) 

4000 CONTINUE 
C 
C 

9999 RETURN 
END 


FACTOR) 
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e.SUBI2 T=00004 IS ON CR00021 USING 00024 BLKS R=0000 


0001 

0002 

0603 

6004 

6005 
0006 
006 ? 
000S 
608S 
0010 
0011 
0012 
6013 
0014 
6015 
0016 
0017 
0618 
6013 
0020 
0021 
0022 
6023 

0324 

0325 
6026 
002 ? 
0023 
0629 
0039 
0031 
0u32 
0633 
0034 
6035 


6033 

0039 

6343 

6641 

6042 

0043 

0044 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE SUB 12 (C, ft, B) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 


C»'>iof'PARftMETER DECLftRftTIONS 
C 

INTEGER C 


INTEGER ft, B 


ths COiTTftL into uhiCh tho diffononco »30tuw0ri 
image ft and image B is placed bg SUB 12 (C = ft - B) 
the images whose difference is tcKcn 


CxoK* INTRODUCTION: 

C 

C The subroutine "SUBtract Images #2" takes a pixel by pixel difference 
C of images ft and B and places the resulting iiirage into image C. 

C The truecolor image 8 is used in the processing of SUBI2, and will 

C be left as the combination of C, ft, and B for red, green, and blue 

respectively. 

C 
C 
c 
c 
c 
c 
c 
c 

C>!:>!olCftNGUftGE : 


Unlike SUBIM, which does no scaling or offsetting, SUBI2 offsets the 
result of the subtraction by adding 128 to each pixel difference. 

Thus, a 128 pixel value in image C after the call means that 
the true value of the difference was 8. This offset can be handy when 
many of the values of the difference are less than 0. After the offset 
is added, any pixel values less than 0 are set to 0. 


C 

C FORTRAN ??, the HP- 1000 version for RTE-6/Vt1. 

C 

C>:o;-:CIMITATI0NS: 

C 

C The truecolor 8 image is destroyed during this operation. C is 
C obviously destroyed. This subroutine is accomplished using COMTftL 
C commands thct exploit the pipeline processors. Because of this, the 

C processing steps are obscure. For example, there is no motivation 

C outside the COMTftL instructions for making the combination of C, ft, end B 

C a color irncicje. Readers should be ciwcire of these obscurities before trying 

C to understand the code. 

C 

C If any offset difference is less than 6, the pixel value is set to 0. 

C 

C If any image number is out of range, an error message is printed and 
C no further processing takes place. 

C This subroutine assumes that 0 is not a legal image for the COITTAL 
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0045 C configuration. 

0046 C 

0047 C»«oi<SUBPROGRftMS CALLED: 

6048 C 

0049 C name source load remarks 

6050 C : — 

0051 C CMMND LCMMND %CMMND Sends a command to the COtTTAL as if the 

0052 C command u'ere sent to the Keyboard 

0053 C RANGE LRANGE ?iRANGE logical function that determines if the 1st 

6054 C parameter is within the range of the 2nd 8. 3rd. 

6355 C DIGIT SiDIGIT %DIGIT character=:<l function that returns '0'-'9' 

0056 C according to integer input 0-9. 

0057 C 

0058 C»iokIJRITTEN BY: 

0059 C 

0060 C KEITH MILLER. July. 1984. with the support of a NASA-ASEE 

0061 C summer fellowship. 

0062 C 

0063 C>MoKREVISI0N HISTORY: 

0064 C 

0065 C 

0066 C>lolo(:L0CAL VARIABLES: 

0067 C 


0068 


INTEGER 

IBUF(128) ! 

a buffer for passing commands to 

COMTAL 

6069 


CHARACTER>i:255 

CBUF ! 

character overlay for IBUF 


0070 


EQUIVALENCE 

(IBLIF.CBUF) 



0071 

C 





6072 


LOGICAL 

RANGE ! 

function that determines if 1st 

parameter 

0073 

C 


! 

is within 2nd and 3rd paranneter 


0074 

c 





6075 


INTEGER 

IMLO. IMHI ! 

limits on COMTAL image numbers 


0076 


INTEGER 

TERM 



0077 


CHARACTER*! 

DIGIT ! 

returns a single digit character 

'0' 

6073 

c 


1 

to '9' for integer input 0-9. 


6079 

c 





0630 


i^NITIALIZATIONS 

: 



6331 

C 






6082 DATA IMLO/1/. IMHI/4/ 

6333 DATA TERM/1/ 

0034 C 

6635 C);:;W'PR0CESSIKG 
6336 C 

0007 IF (.NOT. (RANGE(A.IMLO.IMHI)l) GOTO 8001 ! error return 

0038 IF (.NOT. (RANGE(B. IMLO, IMHim GOTO 8101 ! error return 

0339 IF (.N0T,(RANGE(C.IML0.IMHI))) GOTO 8201 ! error return 

0093 C 
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0091 

0892 

0893 
0694 
0095 
0696 
009? 

0098 

0099 

0100 
0101 
6102 

0103 

0104 

0105 

0106 
010 ? 
0108 
0109 
0116 
0111 
6112 
0113 
6114 

0115 

0116 
011 ? 
0118 

0119 

0120 
0121 
6122 
0123 

6124 

6125 
0126 
012 ? 
0 128 
0129 
0138 

0131 

0132 

0133 

0134 

0135 

0136 


C The following character string sends a series of Keyboard 

C commands to the COITTAL. In the comments below, each command 

C is explained. The notation CX where X is either ft. B. or C 

C stands for the single character that corresponds to the single 

C digit number associated with the parameter X. 

C In this notation, letters in caps were entered into CBUF. and 
C lower case letters are the full commands filled in by the COMTftL 

C NOTE: this code assumes that the digit 0 is NOT a legal walue for 

C the parameters ft. B. and C. 

C The separates COMTftL commands. 

C 

CBUF •= 

1 'UN I 8 S'// 

C UNassign Image 8 ! Just in case 8 is already assigned. 

2 'ftS T 8 '//DIGITCCl//' '//DIGIT(ft)//' ' //D IG IT(B)//' S'// 

C ftSsign Truecolor image 8 red #C green #ft blue #B 

3 'D I 8 S'// 

C Display Image 8 

4 'SE COM G - B S'// 

C SEt COMtaine <Green - Blue> ! -i-128 offset and no scaling is the 

C ! default. 

5 'ft COM S'// 

C ftdd COMbine 

6 'I '//DIGIT(C)//' D R S'// 

C Image =sC = Displayed Image Red ! Red is arbitrary, since difference 

C ! of images is monochome 

? 'D I '//DIGIT(C)//' S'// 

C Display Image *C 

8 'SU COM*' 

C subtract COMbine. 

CALL CMMNDCIBUF. ?4) 

RETURN 

C 

CxoioiCRROR RETURNS 
C 

8001 IJRlITECTERM. 8093) R 

8003 FORMAT r THE 2ND IMAGE PARAMETER.'. 13. '. IS OUT OF RftNQE.') 

GOTO 8980 


C 


8101 LJRITECTERM, 8103) 8 
8103 FORMAT THE 3RD IMAGE PARAMETER,'. 
GOTO 8960 
C 


8201 LJRITECTERM. 8203) C 
8203 FORMATC' THE 1ST IMAGE PARAMETER.'. 
GOTO 8900 


13, 


13 


IS OUT OF RANGE.') 


IS OUT OF RANGE.') 
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0.137 C 

0138 8900 I.JSITE (TERM, 8901) 

0139 8901 FORMATC' SUBI2 RETURNS UITHOUT FURTHER PROCESSING ') 

0140 RETURN ’* 

0141 END 

0142 
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G.SUBIM T=0E004 IS ON CR00021 USING 00004 BLKS R*=0000 


0001 

6002 

0003 

0004 

0005 

0006 
008 ? 
6008 

0009 

0010 
0011 
0012 

0013 

0014 
0815 
0016 
001 ? 
0018 

0019 

0020 
0021 
8022 

0023 

0024 

0025 

0026 
082? 
0028 

0029 

0030 

003 1 

0032 
0333 
0634 
0335 
0036 
083? 
0038 
0639 
0840 
8041 

0042 

0043 

0044 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE SUBIMCC. A. B) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C>lot»KPARAMETER DECLARATIONS: 

c 

INTEGER C ! the COMTAL inrags into which ths diffsrsncs bstwssn 
C ! imcgs A end inrags B ic plccsd by SUBIM (C = A - B) 

INTEGER A, B ! ths imagss whocs diffsrsnes is taksnCC •= A - B) 

C 

C>io0tcINTRODUCTION: 

C 

Ths subrout ins "SUBtract IMagss" toKss a pixsl by pixsl diffsrsnes 
of imagss A and B and places the resulting image into inrage C. 

The truecolor image 8 is used in the processing of SUBItl, and will 
be left as the combination of C, A, and B for red.- orer-. 
respectively. ^ 


CHotokLANGUAGE : 

C 

C FORTRAN 77 , the KP-1000 version for RTE-SA'M 
C 

C>iok>i<LIMITATIONS: 

C , 

C The truecolor 8 image is destroyed during this operation. C is 
C obviously destroyed. This subroutine is accomplished using COMTAL 
C commands that exploit the pipeline processors. Because of this, the 

C processing steps are obscure. For example, there is no motivation 

u outside the COMTAL instructions for making the combination of C, A, and B 

a color image. Readers should be aware of these obscurities before trying 
to understand the code. ^ ° 

The 3 images C, A, and B must be distinct. 

It any difference is less than O, the pixel value is set to 0. 

SLIBIM does no scaling or offsetting. SUBI2 does an automatic 
scale and offest. 

If any image number is out of range, an error message is printed and 
no -further processing takes place. 

This subroutine assumes that 0 is not a legal image for the COMTAL 
conf igurat ion . 


C 
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0045 CXolokSUBPROGRAMS CALLED: 


0678 
eS79 
6030 
693 1 
0032 
6933 

T‘ /I 
U sj O “f 

6935 

0036 

0087 

6088 

6039 

6090 


0046 

0047 

C 

c 

name 

source 

load 

0048 

c 

CMMND 

aCMMND 

JiCMMND 

0049 

c 




0050 

c 

RANGE 

8.RANGE 

?{RANGE 

6051 

c 




0052 

c 

DIGIT 

S.DIGIT 

%DIGIT 

0053 

c 




0054 

c 





remarks 


0055 CJtoiokLJRiTTEN BY; 

0056 C 

6057 C KEITH MILLER. July. 

0053 C summer fellowship, 

0059 C 

0060 C>tol«*REVISI0N HISTORY: 


command were sent to the keyboard 
logical function that ■ determines if the 1st 
parameter is within the range of the 2nd & 3rd. 
character*! function that returns '0'-'9' 
according to integer input 0-9. 

1984. with the support of a NASA-flSEE 


0061 

C 



0062 

C’toiJ^LOCAL VARIABLES! 


0063 

C 



0064 


INTEGER 

IBUF (128) 

0065 


CHARACTER*255 

CBUF 

0066 


EQUIVALENCE 

(IBLIF.CBUF) 

0067 

C 



8068 


LOGICAL 

RANGE 

0069 

C 



0070 

C 



0071 


INTEGER 

IMLO. IMHI 

0072 


INTEGER 

TERM 

0073 


CHARACTER*! 

DIGIT 

0074 

C 



0075 

C 



0076 

C***INITIALIZATIONS: 


6077 

C 




a buffer for passing commands to COMTflL 
character overlay for IBUF 


function that determines if 1st parameter 
is within 2nd and 3rd parameter 

limits on COMTAL image numbers 

returns a single digit character '0' 
to '9' for integer input 0-9. 


DATA 

DATA 


IMLO/1/', 

TERM/1/ 


IMHI/4/ 


C»^*PR0CESSING 

C 

IF 
IF 
IF 


C 

C 

C 

C 

c 


(.NOT. (RANGECA. IMLO, IMHI))) 
C.liCT. (RANGE (B., IMLO, I MM I))) 
(.NOT. (RANGE(C, IMLO, IMHI))) 


GOTO 8001 
GOTO 8101 
GOTO 8201 


error return 
error return 
error return 


The following character string sends a series of keyboard 
commands to the COMTAL. In the comments below, each command 
is explained. The notation =!>X where X is either A. B, or C 
stands for the single character that corresponds to the single 
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0031 

0032 

0093 

0094 

0095 
083S 
009? 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 
010? 
0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 
011 ? 
0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 
012 ? 
0128 

0129 

0130 

0131 

0 1 32 

0133 

0134 

0135 

0136 


C digit number associated with the parameter X. 

C In this notation, letters in caps were entered into CBUF. and 
C lower case letters are the full commands filled in by the COMTftL 

C NOTE: this code assumes that the digit 0 is NOT a legal value for 

C the parameters ft. B. and C. 

C The 'S' separates COMTftL commands. 

C 

CBUF ■= 

1 'UN I 8 S'// 

C UNassign Image 8 ! just in case 8 is already assigned. 

2 'ftS T 6 '//DIGIT(C)//' '//DIGIT(ft)//' '//DIGIT(B)//' S'// 

C ftSsign Truecolor image 8 red blue *A green #B 

3 'D I 8 S'// 

C Display Image 8 

4 'SE COM G - B + 0 S'// 

C SEt COMbine <Green - Blue> offset 0! no scaling by defoul t. 

5 'ft COM S'// 

C ftdd COMbine 

6 'I '//DIGIT(C)//' D R S'// 

C Image #C = Displayed Image Red ! Red is arbitrary, since difference 

C ! of images is monochome 

? 'D I '//DIGIT(0//' S'// 

C Display Image "irC 

8 'SU COM ' 

C subtract COMbine. 

CALL CMMNDUBUF, ??) 

RETURN 

C 

C^mokERROR returns 

c 

8001 URITECTERM. 8003) A 

8003 FORMAT (' THE 2ND IMAGE PARAMETER,'. 13. ', IS OUT OF RANGE.') 

GOTO 8900 
C 

8101 L-JRTTECTERM. 8103) B 

8103 FORMATC’ THE 3RD IMAGE PARAMETER.', 13. '. IS OUT OF RANGE.') 

GOTO 8960 
C 

8201 UR'ITE(TERM. 8203) C 

8263 FORMAT." THE 1ST IMAGE PARAMETER.'. 13. ', IS OUT OF RANGE.') 

GOTO 8906 
C 

8300 L.JRITE(TERM. 8901) 

8901 FORMATC' SUBIM RETURNS UITHOUT FURTHER PROCESSING.') 

RETURN 

END 


125 



&TKRSH T«=E0004 IS ON CR00021 USING 00018 BLKS R>=OB00 


0001 
0062 
0333 
6064 
C33d 
6305 
063? 
0663 
6009 
0010 
6311 
0012 
0613 
0014 
6315 
00 16 
6017 
0318 
0619 
0320 
6021 
0022 
0023 
0324 

0025 

0026 

0027 

0028 
0029 
0Oi30 
0031 
0632 
6333 

0034 

0035 
0336 
0637 
0G33 
0039 
0646 

0041 

0042 
0643 
0044 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE THRSH (OUTIMG- IN IMG, THRESH) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 


c 


c 

c 


PftRftl-ETER I'ECLftRATIOHS: 


INTEGER 

INTEGER 

INTEGER 


OUT I MG 

INIM 

THRESH 


Ihe COMTAL image number for the thresholded ittiage. 
the COMTAL image # for the image to be thresholded. 
the threshold pixel ualue; < threshold -> 6, 

>= threshold -> 255. 


Cxoicx-.INTRODUCTION; 


C 

C The subroutine THReSHold creates a neu image OUTIMG by examining the 
C pixel values in IN IMG. If an IN IMG pixel value is < THRESH, then the 
C corresponding pixel value in OUTIMG is 6. If the INIMG pixel value 
C is >= THRESH, the corresponding pixel value in OUTII’IG is 255. 

C OUTIMG and INIMG need not be distinct. 

C 

CxotoiiANGUAGE : 


FORTRAN 77, the HP- 1000 version for RTE-6/VM. 

:>kXLIMITATIDNS: 

OUTIMG and INIMG must be COMTAL memory planes (1-4). If not, an 
error message is printed and no thresholding taRes place. 

THRESH must be a value between 0-255, or a message is printed instead 
of any thresholding. 


C 
C 

Cx^ 

C 

c 
c 
c 
c 
c 

C>wa'SUBPR0GRAMS CALLED: 
C 


c 

c 

c 

name 

source 

1 OQd 

RANGE 

ScRANGE 

;^RANGE 

c 

c 

RDIL2 

8:RDIL2 

;^RDIL2 

c 

c 

URIL2 

&URIL2 

;iLJRIL2 

c 

c 

Cx:xo! 

•U'RITTEN 

BY: 



C 

C 


logical function that determines if its 1st 
argument is within the 2nd and 3rd inclusive, 
reads a horizontal line of COMTAL pixels; 
each pixel value put into its own integer, 
writes a horizontal line of pixels to a COMTAL 
image from an integer array; 1 p ixel /integer . 


The code on which this subprogram is based was written by 


126 



0045 

C' 

NETTIE D. 

FAULCON, July, 

1983, This subprogram was written by 

0046 

C 

KEITH MILLER, July, 1984, uith the support of a NASA-ASEE 

0047 

C 

summer fellowship. 


0048 

c 




0049 

C>loK>l.REVISI0N HISTORY: 


0050 

C 




6051 

c 




0052 

C>w<>;-LOCAL VARIABLES: 


0053 

C 




0054 


INTEGER 

IBUF(512) ! 

buffer for read/write of horizontal line of 

0055 

C 


! 

COMTAL pixels. 

0056 


INTEGER 

LINE ! 

loop index that Keeps track of the line 

6057 

C 


! 

in INIMG and OUTIMG being processed. 

0658 


INTEGER 

PXCNT ! 

loop index that counts pixels in a line. 

0059 


LOGICAL 

RANGE ! 

function that determines if its 1st argument 

0060 

C 


1 

lies within its 2nd and 3rd inclusive. 

OoS 1 


INTEGER 

IMLO, IMHI ! 

range of legal COMTAL image numbers. 

6662 


INTEGER 

PXLO,^PXHI ! 

range of legal COMTAL pixel values. 

0063 


INTEGER 

LNLO,'lNHI ! 

range of legal COMTAL line numbers. 

0064 


INTEGER 

ARALO, ARAHI ! 

range of array holding a line of pixelsi 

0065 

C 


1 

(+1 of LNLO and LNHI). 

0066 


INTEGER 

TERM ! 

logical unit for terminal output. 

0067 

C 




0068 

INITIALIZATIONS: 


0069 

C 




0070 


DATA 

lMLO/1/, lMHI/4/ 

0071 


DATA 

PXLO/0/, PXH 1/255/ 

0072 


DATA 

LNLO/B/, LNHI 

/511/ 

.0073 


DATA 

ARALO/1/, ARAHI/512/ 

0074 


DATA 

TERM/1/ 


6375 

C 





G076 Cxcxo; PROCESSING: 

B07? C 

0073 IF (.NOT, (RAHGECOUTIMG, ItiLO.IMHD)) GOTO 8801 ! error return 

6079 IF (.NOT. (RftNGEdHIMG dMLO.imi))) GOTO 8101 ! error return 

6030 IF (.NOT. (RANGE (THRESH,FXLO,PXHI))) GOTO 8261 ! error return 

60S! C 

6032 DO 2000 LINE = LNLO. LNHI 

0033 CALL RDIL2(IBL.!F, INK-IG. LINE) 

0684 DO 1000 PXCNT = ARALO, ARAHI 

6085 IF (IBUF(PXCHT) .LT. THRESH) GOTO 500 

, B0S6 C ELSE . . . 

i 0087 IBUF(PXCNT) = 255 

0388 GOTO 1000 

0089 C THEN ... 

0090 500 IBUF(PXCNT) -= 0 
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eesi 10£3 CONTINUE 

6092 CALL UR I L2( OUT I MG, LINE- IBUF) 

0093 2803 CONTINUE 

6094 RETURN 

0095 C 

0096 C>io!:>; ERROR RETURNS: 

009? C 

6098 8601 LJRITECTERM, 8003) OUTIMG- IMLO- IMHI 

6099 8603 FORMAT(' THE OUTPUT IMAGE HUMBER- 15- ' - IS OUT OF RANGE:' -214) 

6106 GOTO 8900 

0101 C 

0162 eiei URITECTERM- 8103) INIMG. IMLO- IMHI 

0103 81C3 FORMAT(' THE INPUT IMAGE NUMBER- '- 15- ' - IS OUT OF RANGE:'-2I4) 

0104 GOTO 8900 
0135 C 

0105 8201 UR I TE (TERM- 8203) THRESH- PXLO- PXHI 

0107 8263 FORMAT(' THE THRESHOLD VALUE- '- 15- ' - IS OUT OF RANGE:'-2I4) 

0108 GOTO 8900 

0109 C 

0110 8900 URITECTERM- 8901) 

0111 8961 FORMAT(' THRSH FAILS. OUTIMG NOT CHANGED.') 

0112 RETURN 

0113 END 



8.TST11 T-00004 IS ON CR00021 USING 00004 BLKS R-0000 


0001 

0002 

0003 

0004 

0005 
000S 

0007 

0008 

0009 

0010 
8011 
0012 

0013 

0014 

0015 
601S 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 
0832 

0033 

0034 
6035 
0036 
6037 
El 6 ,1) S 
0039 
6040 
0041 
0842 
0043 
6044 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE TSTIIOJHICH) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C>ioloKPARAMETER DECLARATIONS: 

C 

INTEGER UHICH ! cisii gneiss ths COMTAL imegs in which ths Isst 
C ! imags is to bs gsnsretsd 

C 

C>woK INTRODUCTION: 

C 

C Ths subroulins TsST Imags 1 gsnsratss a dist incl is.'s patlsrn in ons 

C of ths COMTAL imags msmoriss. Ths pattsrn is gsnsralsd with asesnding 

C pixsl valuss as you movs to ths right and down in ths imags. Howsvsr^ 

C whsn 255 is rsachsd in sithsr ths x or y dirsclions. ths pixsl u*aluss 

C rsstart at 6. This givss a slash accross ths serssn appsarancs at ths 

C discontinuity, and a gradual change in grey seals slsswhsrs. 

C 

C>to(okLANGUAGE : 

C 

C FORTRAN 77, ths HP-1000 vsrsion for RTE-G/Vh. 

C 

C>iok>KL IMITATIONS; 

C 

C Ths tsst pattsrn dsvslopsd hors is always ths sams. An snhancsmsnl 

C might bs to vary ths rspstition of ths pixsl valuss (hsrs, sach pixsl 

C is idsntical to ons of its horizontal nsighbors and ons of its vsrlical 
C neighbors) . 

C 

C>ioioi;SUBPROGRAMS CALLED: 

C 

C name source 1 oad remarKs 

C — 

6 L'jRILN LL'RILN SJLIRILN given an integer buffer of at least 512 bytes, 

C l.JRILN writes a horizontal line of pixels to a 

C designated COMTAL image. 

C 

C>f:>:c>;a.JRITTEN BY: 

C 

C The code on which this subprogram is based was written by 
C NETTIE D. FAULCON, July, 1983, This subprogram was written by 
C KEITH MILLER, July, 1984, with the support of a NASA-ASEE 
C summer fellowship. 

C 



0045 C>ioiorREVISION HISTORY: 

G04G C 

0047 C 

0048 C>iok>i<LOCAL VARIABLES: 

0049 C 

0650 INTEGER BIGBUF(512) ! 1024 bytes of pixel values 

0051 INTEGER I ! pointer into ElIGBUF 

0052 INTEGER ROLJ ! designates a COMTAL image row 

0053 C 

0054 CxolokINITIALIZATIONS: 

0055 C 

0056 DO 1000 I •= 0.255 

0057 BIGBUF(I+1) ■ I 257 ! I»256 numbers the high byte 

0058 C ! I>kl numbers the low byte 

0059 BIGBUFC 1+257) “ BIGBUF(I+1) ! facilitates the wraparound effect 

0060 1000 CONTINUE 
066 1 C 

0062 C>i»iol<PROCESSING 

0063 C 

0064 DO 2000 ROU = 0,511 

0065 C 

0066 C by starting URILN at different places' in BIGBUF, the 

0067 C desired wrap-around effect is acheived. 

0068 C 

0069 CALL URILN( WHICH, ROW, BIGBUFC (ROW/2) +1) ) 

0070 2000 CONTINUE 

0071 C 

0072 RETURN 

0073 END 
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6.TV2C4 T=60804 IS ON CR00821 USING 0000G ELKS R=0000 

0001 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0002 SUBROUTINE TV2C4 

0603 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0004 C 

0605 Cx»it>iPARftMETER DECLARATIONS: 

0006 C 

0007 C None. 

0800 C 

0063 INTRODUCTION: 

0010 C 

0011 C The subroutine "TV to Cofital image transfer #4" digitizes four 

0012 C copies of the current TV image, and averages them together into a 

0013 C single image stored in COMTAL image #1. COMTAL images 1, 2, and 3 

0014 C are used for storage. Image 5 must be set to the video camera image 

0015 C before TV2C4 is called. 

0016 C 

001? Cxoxn.ANGUAGE : 

0018 C 

0019 C FORTRAN 77 . the HP- 1000 version for RTE-6/V!i. 

0320 C 

0021 C>K5K*L IMITATIONS: 

0022 C 

0023 C Images 1, 2, 3, and 4 are changed by this routine. 

0024 C 

0025 C This subroutine assumes that image 5 has been set to the video 

0026 C camera previous to the call,. If 5 is not set to video, the COMTAL 

002? C hangs up. 

0028 C 
0023 C 

0030 C>K>!<>f:SUBPROGRAMS CALLED: 

003 1 C 

0632 C name source load remarKs 

6333 C 

6034 C RANGE &RANGE Jii'RANGE logical function that determines if its 1st 
0035 C argument lies within 2nd & 3rd argument, inclusive. 

6036 C TV2C1’1 G.TV2CM ?iTV2CM digitizes the camera associated with COMTAL image 

00'‘'’ 6 5 into the 1st argument, an image memory. 

6bo3 C ADD 12 LADD 12 %ADDI2 adds two images, pixel by pixel, end divides the 

0633 C sums by last argument, to produce a new image. 

0040 C 

6S41 C>i:>iol4JR ITTEN BY: 

0042 C 

6043 C The code on which this subprogram is based was written by 

6044 C NETTIE D. FAULCON, July, 1983. This subprogram was written by 
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6045 

C 

kEITH (-1ILLER. July, 1984 

, with the support of o MASA-ASEE 

0B4S 

C 

summer f el 1 ous'n ip . 


0047 

C 



6948 

C 

REVISION HISTORY: 


6043 

c 



0050 

C 



605 1 


LOCAL VARIABLES: 


0052 

c 



0053 


LOGICAL RANGE ! 

function that determines of its 1st aryurrcnt 

6G54 

c 

1 

is within its 2nd Ss 3rd, inclusive. 

0055 


INTEGER TV I MAG ! 

COMTAL image number associated with the video 

0056 

c 

1 

camera. 

065? 

c 



0658 

C>K>;c 

•INITIALIZATIONS: 


0059 

C 



6GS0 


DATA TV I MAG/5/ 

arbitrary convention used at our lab. 

60S 1 


DATA TERM/1/ 


0062 

r 



0063 


•PROCESSING: 


6064 

r 

W 



0065 


CALL DSPVD 


0066 


CALL TV2CMC1) 

• 

0067 


CALL TV2CM(2) 


0053 


CALL ADDI2C3, 1,2,2) ! 

pul average of images 1&2 into image 1 

0069 

C 



0070 


CALL TV2CM(1) 


0071 


CALL TV2CM(2) 


0072 


CALL ADDI2C4, 1,2,2) ! 

put average of images 2S>3 into image 2 

0073 

c 



0074 


CALL ADDI2(1,3,4,2) ! 

pul average of images 18.2 into image 1 

0075 

c 



0076 


CALL DSPBUU) 


0677 

c 



0078 


RETURN 


0079 


END 
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8.TV2CM -T=E0064 IS ON CR00021 USING 00004 BLKS R=0Q8O 


6001 
6002 
60G3 
0604 
6065 
000S 
0637 
C J 3 S 
0009 
6010 
6011 
0012 
0013 

6014 
0015 

6015 
6617 
0018 
0019 
0026 
0021 
6022 

0023 

0024 

0025 
6626 
6027 
0028 
0029 
6336 
003 1 
£iLi32 
0032 
0634 

6035 

6036 
0337 
6038 
0639 

0040 

0041 

0042 

0043 
6944 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE TV2CM(CMIM8G) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 


C>K>k>i PARAMETER DECLARATIONS: 
C 


INTEGER CMIMAG ! "CoMlal IMAGE" number where the digitized image 
C ! is to be stored, 

C 

Cxoio:: INTRODUCTION: 

C 

C The subroutine TV2CM digitizes 

C a "snapshot" of the current TV image into the COMTAL image 

C number CMIMAG. Previous to the TV2CM call, image 5 must be set 

C to the video camera. 

C 

CxoK-y.LANGUAGE: 

C 

C FORTRAN 77, the HP- 1000 version for RTE-6/VM. 

C 

C*xo!lIMITATI0NS: 


C 

C The video camera must be associated with TVIMAG before TV2CM is 
C called. TVIMAGE is 5 as an arbitrary convention in this lab. 

C 

C CMIMAG must identify a COMTAL image memory (IMLO to IMHI). 

C 


Cxcxoi SUBPROGRAMS CALLED: 


C ' 

f.... 

name 

source 

1 OQd 

c 

c 

CMiMND 

aCMMhID 

Ji'CMMND 

c 

DSPBI.J 

&DSPBLJ 

?^DSPBLJ 

c 

c 

RANGE 

LRAI'IGE 

.GRANGE 

c 

DIGIT 

a D I G I T 

?^DIGIT 


remarks 


C 

c 


interprets them as COMTAL keyboard commands, 
G:DSPBLJ ?^DSPBLJ displays the indicated monochrome COMTAL image. 
LRAI'IGE .grange logical function that determines if 1st 

argument is within the 2nd a 3rd, inclusive, 
character*! function that returns '0'..'9' 
according to ii'iteger input 0..S. 


CxoKtlJRITTEH BY: 

C 

C The code on which this subprogram is based was written by 
C NETTIE D. FAULCON, July, 1983. This subprogram was written by 
C KEITH MILLER, July, 1984, with the support of a HASA-ASEE 



00^(5 

C 

summer fellow 

"hip. 

0O^^G 

C 


0047 

C>:<>k!: REVISION HISTORY: 

0043 

C 



60-..9 

L 



0659 

C>i: 

WLOCAL VARIABLES: 

005 1 

c 



0052 


INTEGER 

IMLO. IMKI ! 

0653 


INTEGER 

TV I MAGE ! 

6354 

c 


! 

0055 


LOGICAL 

RANGE ! 

0056 

c 


1 

0057 


CHARACTER>!<1 

DIGIT ! 

6058 

c 


! 

0059 


INTEGER 

TERM 1 

0060 

c 



00O 1 


INTEGER 

IBUF(12B) ! 

£;b62 


CHAiRACTER>!:255 CBUF ! 

6663 


EQUIVALENCE 

^ (IBUF. CBUF) 

0064 


INTEGER 

TVIMAG ! 

6065 

c 


! 

6066 

w 




limits on COriTftL image memory numbers, 
the COMTfiL image associated uith the 
video camera. 

function that determines if the 1st argument 
is uiithin the 2nd and 3rd arguments, inclusive, 
function that returns '0'..'9' according 
to integer input 0. .9. 
logical unit for terminal output. 


overlays IBUF. 


arbitrarily set to 5 in this lab. 


image; 


006? 

BBSS 

0669 

B670 

0871 


CXoioftINITIALIZftTIONS: 

C 

DATP IMLO/1/, imi/4/ 

DATA TVIMAG/5/ ! arbitrary convention for our lab. 

DATA TERM/1/ 


0072 C 

0673 C>K>tot.PROCESSING; 
6674 C 


6075 IF (.NOT. (RANGECCMIMAG, IMLO, IMHI))) GOTO 8001 ! error return 

0076 C 
00?7 C 

0O?3 C let #C and *V be the digits associated with CMIMAG and TVIMAG; 

0079 C then the following CMMND string is expanded by the COMTAL into: 

B0S3 C Display Image =K=V; Image #0 = Displayed image Red 

003 1 C 

0032 CBUF = 'D I '//DIGIT(TVIMAG)//' 01 '//DIGITCCMIMAGl//' D R ' 

0033 CALL CMMMDCIBUF. 15) 

O03'-4 call DSPBU(CMIMAG) 

0635 RETURN 

6636 C 

0087 C>k>k>!-ERR0R RETURNS: 

6033 C 


6089 8001 WRITE (TERM. 8003) CMIMAG, IMLO. IMHI 

0090 8063 F0RMAT(' THE COffTAL IMAGE NUMBER. '. 14, ' , IS OUT OF RANGE:'. 214) 
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GOTO 8900 


0091 

0092 C 

0093 C 

S094 S900 UR ITE (TERM. 8901) 

0095 8961 FORMAT (' TV2CM FAILS. 

0096 C 

0097 
6098 


NO DIGITIZING TAKES PLACE.') 


RETURN 

END 



B.UaiT T=E80O4 IS ON CRO0021 USING 03002 BLKS R=3333 

00 G 1 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0002 SUBROUTINE UIAIT 

0003 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0004 C 

0085 C>:->;":.PARft|-jETERS : NONE 

0006 C 

0007 C 

0668 Cxoioi- INTRODUCTION: 

6309 C 

6010 C UIAIT pauses until <CR> is pressed on the HP Keyboard. 

0011 C 

0012 C>K>ioi-LAHGUAGE : 

0013 C 

6614 C FORTRAN 77, the HP-1000 version for RTE-SA'H. 

6015 C 

0016 C>M<>!-3UBPR0GRAriS CALLED: NONE 
6017 C 
0018 C 

6619 C>it^H-.LJRITTEN BY: 

0020 C 

0021 C KEITH MILLER, NASA-Langley ASEE fellow, 1984 

0022 C 

0023 C>toK>i-REVISION HISTORY; NONE 

0024 C 

0025 C 

0628 C>k>k>;.L0CAL VARIABLES: 

0027 C 

0328 INTEGER TERM ! logical unit of the terminal 

0029 INTEGER IDUMMY ! facilitates the read that forces a pause 

0830 C 

0031 C>k*:h-.INITIALI2ATI0NS: 

6032 C 

6033 DATA TERIVI/ 

0034 C 

0035 PROCESSING: 

0036 C 

6037 WRITE (TERM, 1631) 

0038 1061 F0RMAT(' PUSH <CR> TO CONTINUE.') 

6039 READ (TERM, 2001) IDUMMY 

0040 2061 F0RMAT(I2) 

0041 RETURN 

0042 END 

0043 
0644 
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8.UIPGR T-00004 IS ON CR00021 USING 00012 BLKS R-0000 


0001 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0002 SUBROUTINE UIPGRCGRNUM) 

0003 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0004 C 

0005 CxolokPARAMETER DECLARATIONS: 

0006 C 

0007 INTEGER GRNUM ! a number, 1-4, designating a CONTAL graphics plane. 

0008 C 

0009 C5loiok INTRODUCTION: 

0010 C 

0011 C "bJIPe GRaphics" is a subroutine that allows the caller 

0012 C to send an "un-display" command to the COITTAL from an HP program. 

6013 C The call can turn off a graphics plane, number 1, 2, 3, 

0014 C or 4. 

0015 C 

6816 C>l»i»kL IMITATIONS: 

0017 C 

0018 C It is OK to call LJIPGR repeatedly without an intervening DSPGR. 

6019 C The extra calls have no effect, but they don't hang up the COMTAL. 

0020 C 

0021 C>loiokSUBPROGRAMS CALLED: 

0022 C 

6023 C name source load remarks 

0024 C 

0025 C RANGE &RANGE GRANGE logical function that determines if the 

0026 C first parameter is within the bounds defined 

0027 C by the. second and third parameter (inclusive). 

0028 C CMMN2 S<CMMN2 ?fCMMN2 sends a constant string to the COMTAL as if 

0029 C the string were typed on the COMTAL Keyboard. 

0030 C DIGIT SiDIGIT %DIGIT character*! function that returns '0'-'9' 

0031 C according to integer input 0-9. 

8332 C 

6633 C^"^:<^:-lJRnTEN BY: ' 

6034 C 

6035 C The code on which this subprogram is based was written by 

0036 C NETTIE D. FAULCON, July, 1983. This modification is bq 

0037 C KEITH MILLER, June, 1984. 

0338 C 

0339 C>h;<*REVISI0N HISTORY: 

6040 C 

6041 C 

8042 CxwwLOCAL VARIABLES: 

0043 C . 

0344 LOGICAL RANGE ! a function for determining if ah integer is 
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0045 

604S 

004? 

8048 

0649 

6050 

0051 

6052 

6053 

6054 

0055 

0056 
005? 

0058 

0059 

0060 
666 1 
6662 

0063 

0064 

0065 

0066 


within a certain range, 
the logical unit number for the terminal, 
fills the place of an unused EXEC parameter, 
limits on a graphics plane number, 
function that returns '0'-'9' for input 
integers 0-9. 


DPTfl GRL0/1/.GRHI/4/ 

C 

C>i»iol<PROCESS ING 
C 

IF (.NOT. (RftNGECGRNUM.GRLO.GRHI))) GOTO 8001 ! error re'turn 
C 

C "SUBtract GRaphics *GRNUM", where #GRNUI1 stands for the digit 
C corresponding to GRNUM value, 

C 

CALL CMfif'12('SUB GR ' //DIG IT (GRNUM) ) 

RETURN 

C 


C 

INTEGER TERM 
INTEGER I DUMMY 

INTEGER GRLO.GRHI 

CI-IARACTER>X1 DIGIT 
C 
C 

C»oioi<INITIALIZATIONS: 

C 

DATA TERM/1/ 


665? C>ioIo!CRR0R RETURN: 
6668 C 


0669 8001 URITE(TERM, 8003) GRNUM. GRLO, GRHI 

06?0 8003 FORMAT ( ' THE GRAPHICS NUMBER. 13. ' . OUT OF RANGE: '.214) 

00? 1 C 

06?2 8900 WRITE (TERM. 8901) 

00?3 8901 F0RMAT( ' DSPGR fails. No action taKen on command.' ) 

60?4 RETURN 

00?5 END 
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&URGLN T=00004 IS ON CR00021 USING 00018 BLKS R=0000 

0001 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0002 SUBROUTINE URGLN (GRAPH, LINE, ONOFFS) 

0003 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0004 C 

0005 C>lt>!'*PftRftMETER DECLARATIONS: 

0006 C 

000? INTEGER GRAPH ! COMTAL image graphics * to be written to. 

0008 INTEGER LINE ! which horizontal line to be written to; 

0309 C ! lines numbered from 1 (screen top) to 512. 

0010 INTEGER 0N0FFS(32) ! 16 bits per integer, 512 bits in a line. 

0011 C 

0012 CHoioK INTRODUCTION: 

0013 C 

0014 C This subroutine URites a Graphics LiNe to the COMTAL. The line of 

6015 C bits is coded as 1 for on and 0 for off. Each bit in ONOFFS must be 

0016 C set by the caller of IJRGLN. 

0017 C 

0018 C>wokLANGUAGE : 

0019 C 

0020 C FORTRAN 77, the HP-1000 version for RTE-6/VM. 

0021 C 

0022 C>»io):L IMITATIONS: 

0023 C 

0024 C If GRAPH or LINE is out of range, an error message is printed 

0325 C and no transfer taKes place, 

0026 C 

0027 C>k>io!6UBPR0GRAMS CALLED: 

0028 C 

0029 C name source load remarks 

0030 C 

6031 C RANGE GRANGE GRANGE logical function that determines if its 

0832 C first parameter is within the last two parcmelers. 

6333 C 

6034 C!;«::a.JRITTEN BY: 

6635 C 

003'6 C The code on which this subprogram is based was written by 
0637 C NETTIE D. FAULCON, July, 1983. This modification is by 

6033 C KEITH MILLER, June, 1984. 

6039 C 

0043 C;k>:o;'.REVISI0N HISTORY: 

0041 C 

0042 Cx:>t:*L0CAL VARIABLES: 

0043 C 

0844 LOGICAL RANGE ! function that ascertains if its first parameter 
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0845 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 
0073 
0679 
0030 
0831 
0032 
8083 
0034 
0835 
0086 
0037 
0088 

0089 

0090 


INTEGER TERM 
INTEGER GRLO. GRHI 
INTEGER LNLO, LNHI 
C 

C>loiok I N I TI AL I ZPIT I DNS : 

C 


is beluj 0 er, (inclusive) its last 2 parameters 
the logical unit for terminal output 
the limits on COMTAL monochrome image numbers 
the limits on COMTAL image 1 ine numbers 


DATA TERM/1/ 

DATA GRLO/1/, GRHI/4/ 

data LNLO/0/, LNHI/511/ 

C 

Cxo(ot«PROCESS ING 
C 

IF (.NOT. (RANGE(GRAPH.GRLO.GRKI))) 
IF (.NOT.(RANGE(LINE, LNLO.LNHI))) 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

0 

c 

c 

c 


GOTO 8001 
GOTO 8101 


! error return 
! error return 


Programming note: 

The EXEC call is explained in detail in the 

HP Programmer's Reference Manual for RTE-6/VM/.p.2-19f f . This 

transfer function for the COMTAL is discussed in the 

COMTAL User's Manual. Section 5.2.2. 1. In the EXEC call 

that follows, the HP resident driver called DVR41 is called as 

follows: the first parameter (2) signifies a write; the 

second parameter is in two parts: 368 identifies the resident 

DVR41 driver, and 1068 identifies the line transfer operation 

of that driver; the third parameter (ONOFFS) holds the data to be 

transfered, and the fourth parameter gives ONOFFS' length in words 

(32); and the final parameter is a COMTAL command code for the transfer. 

CALL EXEC (2,368+1008, ONOFFS, 32, (GRAPH- l);i<2048 + LINE + 512) 

RETURN 


CxotolCRROR RETURNS 
C 

8601 IJRITECTERM, 8003) 

0003 FORMAT (' GRAPHICS 
GOTO 8960 
C 

8101 IJRITECTERM, 8103) LINE, LNLO, 
8103 FORMAT!:' LINE MLH'SER,. ' , 14, ' 
GOTO 8960 


GRAPH, GRLO, GRHI 

NUMBER,', 13, ' OUT OF RANGE:', 212,'.') 


LK;-1I 

OUT OF RANGE:', 213, 


' .') 


8900 UR I TE (TERM, 8901) 

8901 FORMAT (' URGLN FAILS. NO TRANSFER.') 
RETURN 

END 


140 



8.URGPT T=00004 IS ON CR00021 USING 00018 BLKS R=0000 


0001 

0002 

0003 

0004 

0005 

0006 
000 ? 
0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 
8816 
081? 
0018 

0019 

0020 
0021 
6022 
0623 

0024 

0025 
8026 
002? 
6028 
0829 

0038 
0031 
C!032 

f~. |“. -? 

uuoo 

uo34 

0335 

0036 

GG3? 

6038 

0039 
0840 
6041 

0042 

0043 

0044 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE URGPTC GRAPH, XCOOR, YCOOR, VALUE) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C>m<PARAMETER DECLARATIONS: 

C 

INTEGER GRAPH ! COMTAL grttph rtLimber to be written to. 

INTEGER XCOOR, YCOOR! point where new 'v’olue io to be written to. 
INTEGER VALUE ! 0-1 graphics value to be written to graph pt. 

C 

INTRODUCTION: 

C 

C This subroutine URites a Graph PoinT to the COMTAL. The value 

C of the graphics is an on/off decision, represented in the call 

C by an integer that must be a 1 or d 0, If the 

C graph number, coordinates, or on/off vdlue are out of range, an error 

C message is printed and no transfer takes place. 

C 

C>!oW<LANGUAGE: 

C 

C FORTRAN ??, the HP-1000 version for RTB-6/VM. 

C 

CxotoKL IMITATIONS: 

C 

C If GRAPH, XCOOR, YCOOR, or VALUE are oUl of range, an error message 

C is printed at the terminal and no transfer takes place. 

C 

C>!o!o!<suBPR0GRAMS CALLED: 


C 

C name source load remarks 

C 

C RANGE CiRANGE GRANGE logical function that determines if its 

C first parameter is within the last two parameters 

C IBSET HP FORTRAN?? inStrinsic function that takes an 

C integer argument and returns that integer with 

C one bit set, according to the second argument. 

C IBCLR K? FORTRAN?? in^trinsic function that takes an 

C Integer argument and returns that integer with 

C one bit cleared, according to the second argument 

C 


CHoioicURITTEN BY; 

C 

C The code on which this subprogram is bdsed was written by 
C NETTIE D. FAULCON, July, 1983. This mod if icat ion is by 



0045 C KEITH MILLER, 

0046 C 

004? C>t»i«!REVISION HISTORY: 
004S C 

0649 C 

0650 CHofoKLOCFlL VARIABLES: 

005 1 C 

6852 LOGICAL RANGE 

6053 C 

0054 INTEGER TERM 

0055 INTEGER GRLO, GRHI 

0056 INTEGER LNLO. LNHI 

0057 INTEGER BTLO, BTHI 

0058 INTEGER BITS (32) 

0059 INTEGER WORD 

0060 INTEGER BIT 

0061 C 

0062 C 

0063 C»oM<INITIALIZATIONS: 

0064 C 


June, 1984. 


! function that ascertains if its first parameter 
i is between (inclusive) its last 2 parameters 
! the logical unit for terminal output 
the limits on COMTAL monochrome graph numbers 
the limits on COMTAL graph line numbers 
the limits on COMTAL graphics values 
a buffer to read S. write a COMTAL graphics line 
which word of BITS holds the bit selected by XCOOR. 
which bit in BITS (WORD) holds the bit selected by 
XCOOR; bits numbered 0-15, right to left. 


0665 

DATA 

TERM/1/ 

0066 

DATA 

GRLO/1/, GRH 1/4/ 

0067 

DATA 

LNLO/0/, LNHI/511/ 

0068 

DATA 

BTLO/0/, BTHI/1/ 


0069 

0070 

0071 

0072 

0073 
6074 
0075 
6876 
0077 
6078 
0G:’9 
0080 
Cl' 8 1 

0682 
Cl n 

0034 

6035 

£i0db 

0087 

0088 
0689 
0090 


C>to*okPROCESSING 

C 

IF (. NOT. (RANGE (GRAPH, GRLO, GRH I )) ) GOTO 8001 ! error return 
IF (.NOT. (RANGE(XC00R,LNL0, LNHI))) GOTO 8101 
IF (.NOT. (RANGE (YC00R,LNL0,LNHI))) GOTO 8201 
IF (.NOT. CRANGE(VALUE,BTLO,BTHI))) GOTO 8301 


error return 
error return 
error return 


C 

C 

C 

c 

c 

r 

C 

C 

C 

C 

C 

c 


Programming note: 

The EXEC colls below are to the DVR41 driver. The first call 
is identiccil to the call mocie in RDILN. The second EXEC call 
is identical to the one in IJRILN. See the documentation for 
those subroutines for details on these calls. 

Read the COMTAL line (hor isontal ) that contains the point in question: 

CALL EXEC ( l,3SB+i88B, BITS, 32, (GRAPH- 1)!;-:2348 + 512 + YCOOR) 

Change the single bit that has been selected: 

WORD " (XCOOR/ 16) + 1 

BIT = (16>l:lJ0RD) - XCOOR - 1 
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0091 C 

0092 IF (VALUE .EQ. 0) GOTO 1000 

0893 C ELSE... VALUE .EQ. 1 

0094 BITSOJORD) «= IBSET(BITSOJORD) ,BIT) 

0095 GOTO 2000 

0096 C THEN... VALUE .EQ. 0 

0097 1000 BITS(UORD) = IBCLR (BITS (WORD) , BIT) 

0098 GOTO 2000 

0099 C 

0100 C Write the graph line with one changed graphics to COMTAL 

0101 C 

0102 2000 CALL EXEC(2,3GB+100B,BITS,32. (GRAPH-1)»k2048 + 512 + YCOOR) 

0103 RETURN 

0104 C 

0105 DtoioKERROR RETURNS 

0106 C 

0107 6001 WRITE (TERM. 8003) GRAPH, GRLO, GRHI 

8108 8003 F0RMAT(' GRAPH NUMBER,', 13, ' OUT OF RANGE:', 212,'.') 

0109 GOTO 8900 

0110 C 

0111 8101 WRITE (TERM, 8103)XCOOR, LNLO, LNHI 

0112 8103 FORMAT (' X COORDINATE, ' , 14, ' OUT OF RANGE: ' , 214, '.') 

0113 GOTO 8900 

0114 C 

0115 8201 WRITE (TERM, 8203) YCOOR, LNLO, LNHI 

0116 8203 FORMAT(' Y COORDINATE,', 14, ' OUT OF RANGE: ', 214, '.') 

0117 GOTO 8900 

0118 C 

0119 8301 WRITE (TERM, 8303) VALUE, BTLO, BTHI 

0120 8303 FORMAT(' BIT VALUE,', 14, ' OUT OF RANGE:', 214, '.') 

0121 GOTO 8900 

0122 C 

0123 8900 WRITE (TERM, 8901) 

0124 8901 FORMATC' WRGPT FAILS. NO TRANSFER.') 

0125 RETURN 

0126 END 



8.URIL2 T=00004 IS ON CR00021 USING 00018 BLKS R«=0000 


0001 

0002 

0003 

0004 

0005 

0006 
000 ? 
0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 
08 16 
001 ? 
0013 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 
602? 
0028 

0029 

0030 
6031 

0032 

0033 
0634 

6035 

6036 
633? 

0038 

0039 

0040 

0041 

6042 

6043 
6644 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUiINE IJRIL2( IMAGE, LINE, INTS) 

CCCCCCCCCCCCCCCCCCCCCCCGCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


Cxo)c>i;PARAMETER DECLARATIONS: 
C 

INTEGER IMAGE 
INTEGER LINE 


INTEGER INTS(512) 


C 

C 


I COMTAL image number to be written to 
which horizontal line to be written to; 
lines numbered from 1 (screen top) to 512. 
512 values, one integer per pixel, to 
be transferred. 


CJtolok INTRODUCTION! 


C 

C 

C 

C 

C 

C 

C 


This subroutine, l.JRite Image LiNe <!=2, writes a line of pixels to the 
COhlTAL. ^The input array INTS has a two byte integer for each pixel, 
but the COMTAL only uses the lower order byte of each integer. Therefore, 
URIL2 strips off the upper byte before sending the pixels to the COMTAL. 
IJRIL2 is very similar to LJRILN, which writes out a line of bytes. 


CHoioKLANGUAGE : 

C 

C FORTRAN ??, the HP- 1000 version for RTE-6/VM. 

C 

Cxolc>l<L IMITATIONS: 

C 

C The INTS array must be completely "full". The IMAGE designated 

C must be a monochome image. The LINE parameter must be between 

C 0 and 511. If IMAGE or LINE is out of range, an error message is printed 
C and no transfer taKes place, 

C 

C>:®io!:SUBPROGRAMS CALLED: 

C 

C name source 1 oad remarKs 

r 

C RANGE S:Ri-;MGE )iRANGE logical function that determines if its 

first parameter is within the last two parameters, 
intrinsic Hr' FGRiRAN?? function that strips off 
the upper byte of an integer and returns the lower 
byte as a character. 


C CHAR 


CJidoKLJRITTEN BY: 

C 

C The code on which this subprogram is based was written by 
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0045 

0046 
004? 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 
0860 
0061 
0062 
0063 
6064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 
0872 

0073 

0074 
6075 
0676 
6077 

0078 

0079 
6080 
6081 
0882 
6083 
0084 

0035 

0036 
0337 
0088 
0039 
0690 


C NETTIE D. FfiULCON* Jult|« 1983. This modification is by 
C KEITH MILLER, June, 1984. 

C 

CxoiomREVISION HISTORY: 

C 

C 

C»oi«L0CftL VARIABLES: 

C 

INTEGER PIXELSC256) ! holds lower order bytes of INTS values 
CHARACTER>i!l CPIX (512)! overlays PIXELS 
EQUIVALENCE (PIXELS, CP IX) 

C 

LOGICAL RANGE 1 function that ascertains if its first parameter 

C ! is between (inclusive) its last 2 parameters 

INTEGER TERM I the logical unit for terminal output 

INTEGER IMLO, IMHI ! the limits on COMTAL monochrome image nurrtoers 

INTEGER LNLO, LNHI I the limits on COMTAL image line numbers 

INTEGER INDEX ! indexes into arrays in a loop 

C 

CXOIOKINITIALI2ATI0NS: 

C 

DATA TERM/1/ 

DATA IMLO/1/, IMHI/4/ 

DATA LNLO/0/, LNHI/511/ 

C 

CMol:*PROCESSING 

C 

IF (.NOT. (RANGE (IMAGE, IMLO, IMHI))) GOTO 8001 I error return 
IF (.NOT. (RANGE (LINE, LNL0,LHHI))) GOTO 8101 I error return 
C 

C strip off the upper bytes of the pixel values in INTS 
C 

DO 1000 INDEX=1,512 

CPIXC INDEX) = CHAR (INTS (INDEX)) I CPIX overlays PIXELS 
1600 CONTINUE 
C 

C Programming note: 

C The EXEC call is explained in detail in the 
C HP Programmer's Reference Manual for RTE-6/VM,p.2-19f f , This 

C transfer function for the COMTAL is discussed in the 

C COMTAL User's Manual, Section 5.2.2. 1. In the EXEC call 

C that follows, the HP resident driver called DVR41 is called as 

C follows: the first parameter (2) signifies a write; the 
L second parameter is m two parts: 36B identif ies the resident 

C DVR41 driver, and 100B identifies the line transfer operation 

C transfered, and the fourth parameter gives PIXELS' length in words 
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0091 C (256); and the final parameter is a COMTflL command code for the transfer 

0092 C 

0093 CPILL EXEC (2, 36B+160B, PIXELS, 256, ( imGE-l)>K2048 + LINE) 

0094 RETURN 

0095 C 

0096 OtoMcERROR RETURNS 
009? C 

0098 8001 UIRITE(TERM, 8003) IMAGE, IMLO, IMHI 

0099 8003 F0RMAT(' IMAGE NUMBER,', 13, ' OUT OF RANGE:', 212,'.') 

0100 GOTO 8900 

0101 C 

0102 8101 URITECTERM, 8103) LINE, LNLO, LNHI 

0103 8103 F0RMAT(' LINE NUMBER,', 14, ' OUT OF RANGE:', 213, '.') 

0104 GOTO 8900 

0105 C 

0106 8900 UIRITECTERM, 8901) 

010? 8901 FORMATC' UJRIL2 FAILS, NO TRANSFER.') 

0108 RETURN 

0109 END 



8 .URILN T»00004 IS ON CR00021 USING 00004 BLKS R-0000 

0001 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0002 SUBROUTINE LJRILNC IMAGE. LINE. PIXELS) 

0003 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0004 C 

0005 CJiotokPftRAMETER DECLARATIONS: 

000S C 

0007 INTEGER IMAGE ! COMTAL imag 0 number to be written to 

0008 INTEGER LINE ! which horizontal line to be written to; 

0009 C ! lines numbered from 1 (screen top) to 512. 

0010 INTEGER PIXELS(25S) ! 512 bytes (pixels) to be transferred 

0011 C 

0012 CxoloKiNTRODUCTION: 

0013 C 

0014 C This subroutine URites an Image LiNe to the COMTAL. The line of 

0015 C pixels is made up of 8 bit (0-255) grey scale intensities. The 

0016 C PIXELS array is assumed to be completely full. 

0017 C 

0018 CJlolokLANGUAGE : 

0019 C 

0020 C FORTRAN 77. the HP-1000 version for RTE- 6 A/M. 

0021 C 

0022 C:»olol?L IMITATIONS: 

0023 C 

0024 C The PIXELS array must be completely "full". The IMAGE designated 

0025 C must be a monochome image. The LINE parameter must be between 

0026 C 0 and 511. If IMAGE or LINE is out of range, an error message is printed 

0027 C and no transfer taKes place. 

0028 C 

0029 C>iolokSUBPROGRAMS CALLED : 

0030 C 

0031 C name source load remarks 

0032 C 

0033 C RANGE GRANGE ^iRANGE logical function that determines if its 

0034 c first parameter is within the last two parameters. 

0035 C 

0036 C>i!Mr^'4.JRITTEN BY: 

6037 C 

0030 C The code on which this subprogram is based was written by 

0039 C NETTIE D. FAULCON. July. 1SS3. This modification is by 

0640 C KEITH MILLER. June. 1984. 

6041 C 

0042 C>toi«cREVISION HISTORY; 

0043 C 

0044 C 
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0045 CxoloKLOCftL VARIABLES: 

0046 C 

0047 LOGICAL RANGE ! function that ascertains if its first parameter 

0048 C ! is between (inclusive) its last 2 parameters 

0049 INTEGER TERM ! the logical unit for terminal output 

0050 INTEGER IMLO^ IMHI ! the limits on COMTAL monochrome image numbers 

0051 INTEGER LNLO, LNHI ! the limits on COMTAL image line numbers 

0052 C 

0053 C>k>K*INITIALIZATIONS: 

0054 C 

0055 DATA TERM/1/ 

0056 DATA IMLO/1/, IMHI/4/ 

0057 DATA LNLO/0/, LNHI/511/ 

0058 C 

0059 DiolotcPROCESSING 

0060 C 

0061 IF (.NOT. (RANGE ( IMAGE, IMLO, IMHI))) GOTO 8001 I error return 

0062 IF (.NOT. (RANGE(LINE, LNLO.LNHI))) GOTO 8101 ! error return 

0063 C 

0664 C Programming note: 

0065 C The EXEC call is explained in detail in the 

0066 C HP Programmer's Reference Manual for RTE-6/VM,p.2-19f f . This 

0067 C tronsfer function for the COMTAL is discussed in the 

0068 C COITTAL User's Manual, Section 5.2.2. 1. In the EXEC call 

0069 C that follows, the HP resident driver called DV'R41 is called as , 

0070 C follows: the first parameter (2) signifies a write; the 

0071 C second parameter is in two parts: 358 identifies the resident 

6072 C DVR41 driver, and 100B identifies the line transfer operation 

0073 C of that driver; the third parameter (PIXELS) holds the data to be 

6674 C transfered, and the fourth parameter gives PIXELS' length in words 

6975 C (256); and the final parameter is a COMTAL command code for the transfer. 

0076 C 

0877 CALL EXEC(2, 36B+10OB, PIXELS, 256, ( IMAGE-l)>i<2048 + LINE) 

0078 RETURN 

0079 C 

0080 CMoiokERROR RETURNS 
B0S 1 C 

6082 8001 IJRITE(TERM, 8063) IMAGE, IMLO, IlTrll 

6083 8003 FORMATC' IMAGE NUMBER,', 13, ' OUT OF RANGE:', 212,'.') 

6084 GOTO 8900 

0035 C 

0086 8101 IJRITE(TERM, 8103) LINE, LNLO, LNHI 

0087 8103 P0RMAT(' LINE NUMBER,', 14, ' OUT OF RANGE:', 213, '.') 

0688 GOTO 8900 

0089 C 

6090 8900 WRITE (TERM, 8961) 
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0091 

0092 

0093 


8901 FORMAK' URILN FAILS. NO TRANSFER.') 
RETURN 
END 



8.L.JRIPT T=E00B4 IS ON CR00021 USING 00018 ELKS R=B0B0 

0001 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0002 SUBROUTINE URIPTCimGE, XCOOR, YCOOR, VfiLUE) 

00 G 3 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0604 C * 

0005 CM»:-PfiRftMETER DECLftRATIONS: 

0806 C 

0007 INTEGER IMAGE ! COMTAL image number lobeurittento. 

0009 INTEGER XCOOR/ YCOOR! point where new value is to be written to, 

0009 INTEGER VALUE ! 0-255 pixel value to be written to image pt. 

0010 C 

0011 C INTRODUCTION: 

0812 C 

0013 C This subroutine URites an Image PoinT to the COMTAL. The value 
6814 C of the pixel is an 8 bit (0-255) grey scale intensity. If the 

0815 C image number, coordinates, or value ere out of range, an error 

0016 C message is printed end no transfer takes place. 

0017 C 

0018 C»:>ksLANGUAGE : 

0019 C 

0026 C FORTRAN 77, the HP- 1000 version for RTE-6/VM. 

002 1 C 

0022 C»:>t:xLIMITATI0HS: 

0023 C 

0024 C The PIXELS array must be completely "full". The IMAGE designated 

0025 C must be a monochome image. The LINE parameter must be between 

0826 C 0 and 511. If IMAGE, XCOOR, or YCOOR are out of range, an error message 

6027 C is printed at the terminal and no transfer takes place, 

0028 C 

6029 C>!<x:xSUBPR0GRAMS CALLED: 

0630 C 

6031 C name source load remarks 

0032 C 

0633 C RANGE LRAHGE %RANGE logical function that determines if its 

0034 C first parameter is within the last two porameters. 

6835 C 

6G36 CX":-";URITTEN BY: 

0637 C 

6038 C The code on which this subprogram is based was written by 

6039 C NETTIE D, FAULCON, July, 1983, This modification is by 

6040 C KEITH MILLER, June, 1984, 

6041 C 

0042 CX!to' REVISION HISTORY; 

6643 C 
6044 C 
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OCAL VARIABLES: 


INTEGER TERti 


LOGICAL RANGE ! function that ascertains if its first parameter 

! is between (inclusive) its last 2 parameters 
INTEGER TERti ! the logical unit for terminal output 

INTEGER ItiLO, IMHI ! the limits on COtiTAL monochrome image numbers 

INTEGER LNLO, LNHI ! the limits on COMTAL image line numbers 

INTEGER PXLO, PXHI ! the limits on COMTAL pixel values 

INTEGER PIXELS(25G)! a buffer to read S. write a COMTAL line 
CHARACTER^m BYTES(512) ! overlay for PIXELS buffer 
EQUIVALENCE (PIXELS, BYTES) 

INTEGER INOLD ! hold an integer for byte conversion 

CHARACTER^:! CHARS (2) ! overlay for IHOLD 

EQUIVALENCE ( IHOLD, CHARS) 


'INITIALIZATIONS: 


TERM/1/ 

IMLG/1/, IMHI/4/ 
LNLO/0/, LNHI/511/ 
PXLO/0/, PXH 1/255/ 


I-.PROCESSING 


IF (.NOT. (RANGE (IMAGE. IMLO, IMHI))) GOTO 8001 
IF (.NOT. (RANGE(XC00R,LNL0,LNHI))) GOTO 8101 
IF (.NOT. (RANGE(YC00R,LNL0,LNHI))) GOTO 8201 
IF (.NOT. (RANGE (VALUE, PXLO, PXHI))) GOTO 8301 


error return 
error return 
error return 
error return 


Programming note: 

The EXEC calls below are to the DV'R41 driver. The first call 
is identical to the call made in RDILN. The second EXEC call 
is identical to the one in IJRILN, See the documentation for 
those subroutines for details on these calls. 

Read the COMTAL line (horizontal) that contains the point in question: 
CALL EXECa, 26B+130B, PIXELS, 25S, ( IMAGE- 1 ) >l«204S + YCOOR) 

Change the single byte that needs cnanging: 


IHOLD = VALUE ! transfers the pixel VALUE to CHARS(2). 


B'lTEStXCOOR+l) = CHARS (2) 


transfers VALUE to PIXELS in proper position 
' + r converts from 0-255 pixels to 1-25S 
FORTRAN array , 
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Urite the image line with one changed pixel to COMTAL 


6091 C 
0692 C 

0093 CALL EXEC (2, 36B+100B- PIXELS, 25S, ( I MAGE- 1) *2048 + YCOOR) 

0094 RETURN 
009p C 

0,098 C>t»t<»'ERR0R RETURNS 
0097 C 

6098 8001 URITE(TERM, 8093) IMAGE, IMLO, IMHI 

0099 8003 FQRMAT(' IMAGE HUMBER,', 13, ' OUT OF RANGE:', 212,'.') 

0100 GOTO 8900 

0101 C 

0102 8101 UIRITE(TERM, B103)XCOOR, LNLO, LNHI 

0103 8163 FORMATt' X COORDINATE,', 14, ' OUT OF RANGE:', 214, '.') 

0104 GOTO 8900 

0105 C 

0106 8261 IJRITECTERM, 8203) YCOOR, LNLO, LNHI 

6107 8203 FORMATC' Y COORDINATE,', 14, ' OUT OF RANGE:', 214. '.') 

0108 GOTO 8900 

0109 C 

0110 8361 URITE (TERM, 8303) VALUE, PXLO, PXHI 

0111 8303 FORMAT(' PIXEL VALUE,'. 14, ' OUT OF RANGE:', 214, '.') 

0112 GOTO 8900 

0113 C 

0114 8960 URITE (TERM, 8901) 

0115 8961 FORMAT(' URIPT FAILS. HO TRANSFER.') 

0116 RETURN 

0117 END 
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&URIRC T=e0004 IS ON CReO021 USING 08030 BLKS R=BS03 


000 1 
0002 
0603 
060-J 
Oi0O5 
086 b 
Ci007 
080S 
0689 
B010 
60 1 1 
6012 
6313 

60 1 4 

60 1 5 
6916 
691? 
0018 
6319 
0828 
0821 
6022 
6023 
0824 
6625 
0626 
6327 
0328 
0029 
0930 
063 1 
0032 
C.i Oi 3 3 
60:34 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE URIRCC IMAGE, UPLFK, UPLFY, INPARA, XDIM, YDIM) 

CCCCCCCCCCCCCCCCCCCCCCCBCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


PARAMETER DECLARATIONS : 

0 

INTEGER IMAGE 


INTEGER UPLFX, UPLFY 


INTEGER XDIM, YDIM 
INTEGER INPARA (XDIM, YDIM) 


! the number of the COMTAL image to which 
! INPARA is to be written 
! the image coordinates of the upper left 
! corner of the rectangle of pixels that is 
! to be written into, 

! dimensions of the input array, INPARA 
! the array holding the new pixel values 


The subroutine URite Image ReCtangle transfers pixel values from an 
integer array to a portion of a COMTAL image. Note that although 
pixel values are generally stored with 1 byte/pixel, URIRC taKes as 
input an array of integers in which each integer holds one pixel value. 
XDIM, YDIM, IMAGE, UPLFX, and UPLFY are all checKed for possible out 
of range errors before any transfer is attempted. 


C5K>k>iTNTR0DUCTI0N: 

C 
C 
C 
C 
C 
C 
C 
C 

c 

C>it>K>;lANGUAGE ; 

c 

C FORTRAN 77, the HP- 1000 version for RTE-S/VM. 

C 

C>i!*>; LIMITATIONS: 

C 

bJRIRC does a great deal of error checking before initiating the 
transfer. If the programmer can verify that all calls to URIRC 
will be legal, these checks could be commented out to improve 
machine efficiency. Also, the calls to the subroutines RDIL2 
and LJRIL2 could be replace by inline code, which is not long. 


■ rUBPROGRAMS CALLED : 


6833 C 


6039 

C 

name 

source 

load 

0840 

C 




0041 

C 

RD1L2 

&RDIL2 

%RDIL2 

0042 

604b 

6044 

c 

C 

c 

URIL2 

S.URIL2 

♦4URIL2 


remarks 


into an HP array of integers, 
transfers a buffer of integers to a ( 
as a line of bytes (1 byte/integer) . 
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01345 0, RftNGE GiRflNGE JiRftNGE logical function that tiGterminos of its first 

004E C pprpmeiGr is within tho last two parpmGtGrs 

0047 C CHRR HP F0RTRRN77 intrinsic function; conuorts a 

0048 C 2 bytG integpr into p pno byte char (rGmoues 

0049 C high orcJ&r byltO . 

0050 C 

005 i C»«lo:URITTEN BY; 

0Q52 C 

0053 C The cpclG on which this subprogram is basod was written by 

0054 C NETTIE D. FAULCON^ July, 1983. This code was written by 

0355 C KEITH MILIER, July, 1984. 

0056 C 

0057 C>tok>:.REVISION HISTORY: 

0059 C 

0059 C 

0060 C>»«x«;L0CAL VARIABLES; 

0061 C 

6862 INTEGER IhROy, IMCDL ! a location in the image 

0003 INTEGER ARAROU, ARACDLI a location in INPARA 

0064 INTEGER ICHAR I intrinsic byte to integer conversion 

0065 C ! function 

0066 LOGICAL RANGE ! function that ascertains if the first 

0067 C ! parameter is within the last two parameters, 

0068 INTEGER IhLD, IMHI ! limits on COMTAL image numbers 

0069 INTEGER LHLD, LNHI ! limits on C0I1TAL pixel coordinates 

0870 INTEGER DIH-IIT ! limit on the dimensions of INPARA 

0071 INTEGER TERM ! logical unit for terminal output 

0072 INTEGER IBUF(512) ! buffer to hold COMTAL horizontal line 

0073 C 

6074 C>W«1TNITIALIZATI0NS; 

0075 C 

0076 DATA TERM/1/ 

6077 PATA IMLO/1/, IMHI/4/ 

0078 DATA LNLO/04' LNHI/511/ 

6079 DATA D I ML I M/64/ 

0086 C 

6081 C«?>!<>!PR0CESS ING 

0532 C 

G3G3 IF (.NOT. (RANGE (IMAGE, IML0,IMHI )))G0T0 3391 ! errer return 

6334 IF (.NOT. (RANGE 0<DIM, 1, DIMLIM) ) )G0TG 3181 ! error return 

6835 IF (.NOT. (RANGE (YD IM, 1, DIMLIMmGOTO 8201 ! error return 

0086 IF (.NOT. (RANGE (UPLFX, LNL0,LNHI )))G0T0 8301 ! error return 

0097 I-F (.NOT. (RANGE (LIPLFY, LNL0,LNHI )))G0T0 8401 ! error return 

0088 IF (.NOT. (RANGE (UPLFX+XD I M-1,LHL0, LNHI )))G0T0 8501 ! error return 

0089 IF (.NOT. (RANGE(UPLFY+YDIM-1,LNLQ, LNHI )))G0T0 8601 ! error return 

0090 C 
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US gel lo this point if the transfer is to taKe place 


I iriuu ^ 1 1 

! the next line initializes the column pointer; 


0091 

C 

ue get to this point 

6092 

C 


0093 


IMROU = UPLFY 

0894 


DO 2000 ARAROU = 1, 

6095 


CALL RDIL2(IBUF, 

0096 

c 


6397 


IMCOL = UPLFX + : 

0698 

c 


6099 

r- 

L, 


01 CO 


DO 1000 ARACOL = 

0101 


IBUF( IMCOL) = 

0162 


IMCOL = IMCOL 


01G3 

0104 

0105 
0166 

0 1 07 

0 1 08 

0109 

0110 
6111 
0112 

0113 

01 14 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 
6125 
0126 
8127 
0123 


0131 

0132 

0133 

0134 

0135 

0136 


! coordinates range from 0 lo 511 and the 
! FORTRAN array indices range from 1 lo 512. 


1008 CONTINUE 

CALL UR 1L2( IMAGE, IMROU, IBUF) 

IMROU = IMROU + 1 ! increment for next 2080 loop pass 

2060 CONTINUE 

RETURN ! successful termination 
C 

CsotoiERROR RETURNS: 

C 

8061 URITECTERM, 8003) IMAGE, IMLO, IMHI 

8063 FORMATC' IMAGE NUMBER,', 13, ’ OUT OF RANGE: , 214, . ) 

GOTO 8900 

^8161 UR ITE (TERM, 8103) XDIM, 1, DIMLIM 
8163 F0RMAT(' X DIMENSION,', 14. ' OUT OF RANGE:', 215, . ) 

GOTO 8900 
C 

8261 UR ITE (TERM, 8203) YDIM, 1, DIMLIM 

8263 F0RMAT(' Y DIMENSION.', 14, ' OUT OF RANGE:', 215, . ) 

GOTO 8900 

r 

"s361 URITE(TERM, 8303) UPLFX, LNLO, LNHI , m 

8363 F0RMAT(' X COORDINATE FOR CORNER, ', 14, ' OUT OF RANGE: ,215, . ) 

GOTO 8900 
C 

3461 URITE(TERM, 8403) UPLFY, LNLO, LNHI ^ ^ 

8463 F0RMAT(' Y COORDINATE FOR CORNER, ', 14, ' OUT OF RANGE: ' ,215, ' . ) 

GOTO 8960 
C 

8561 URITE(TERM, 8503) UPLFX, XDIM, LNLO, LNHI 
8563 FORMAT (' X COORDINATE FOR THE CORNER AND THE X DIMENSION , 

j , QP ji^c piRRAY',/, ' OVERFLOU IMAGE BOUNDARIES. , 

2 ' X COORDINATE =', 14, 'X DltiENSION =' , 14, /, 

3 ' IMAGE COORDINATE LIMITS ARE ',.215, '.') 

GOTO 8900 
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0137 C- 

0J38 86E1 IJRITEdERh, 8503) UPLFY, YD Iti, LKLO, INK I 

0139 8603 FORMATC' Y COORDINATE FOR THE CORNER AND THE Y DlNcNSION *, 

0140 1 ' OF THE ARRAY',/, ' OVERFIOLJ INAGE DOUNDRRIES. ' , 

0141 2 ' X COORDINATE =', 14, 'X DIMENSION =', 14, /, 

0142 3 ' IMAGE COORDINATE LIMITS ARE 215, 

0143 GOTO 8900 

0144 C 

0145 8960 LJRITE(TERM. 8903) 

0146 8903 FORMAT(' WRIRC FAILS. NO TRANSFER TAKES PLACE.') 

©14F RETURN 

0148 END 

0149 

0150 
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&URLUT T=0B004 IS ON CR00021 USING 00004 BLKS R«0000 

0001 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

RR02 SUBROUTINE URLUT (LUTNUM, TftBLE) 

0003 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

0004 C 

0005 C>t'>ioKPftRAt1ETER DECLARATIONS: 

0007 ^ INTEGER LUTHUM ! the number of the COMTAL looK-up Icblc (celled 

g 00 Q ^ ! "function memory" in the COMTAL 1 iteroture) . ^ 

0009 INTEGER TABLEC256)! the ^.-elues to be placed in the looK-up table; 

PiPi.p, p ! notice that 0 maps to TABLE(l)/ 1 maps to 

Q ! table ( 2) and 255 maps to TABLE (25G). 

0012 C 

0013 C)ioiot< INTRODUCTION; 

1^15 C Th. subrouiln. IRilb LooK-Up Table <LUT) bbloblibheb a COWSL n«pplnc, 
001S C from the integers 0-255 to the elements in TABLE. This LU i con be 

0017 C used for grey level enhancements in the COIiTAL. A simiior sMhmni.np 

0018 C c^tled UR?Su"is used tc establish a pseudocolor looK-up table. This 

0019 C routine is only used for grey scale look-up tables. 

0020 C 

002 1 C>loi:>lCANGUAGE : 

0022 C 

0023 C FORTRAN 77 , the HP- 1000 version for RTE-6/vn. 

0024 C 

0025 C>f'>t:>'''L IMITATIONS: 

0027 C Although 8 bits are sufficient for the look-up table values, fi^l 
bS C integers are used in TABLE. This format is dictated by the COMTAL 

0029 C conventions as given in section 5.2.3. 1. 

0030 C 

0031 C>:ok>i^SUBPROGRAMS CALLED: 

0032 C 

0633 C name source load remarks 


RANGE SiRAHGE %RANGE logical function which determines if its 1st 

parameter is within its 2nd and 3rd Inclusive. 


iaiRITTEH BY: 

The code on which this subprogram is based was written by 
NETTIE D. FAULCON. July- 1983. This subprogram was written by 
KEITH MILLER- July- 1984, with the support of a NASA-ASEE 
summer fellowship. 
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0045 

0046 
0647 
6048 
0049 
0850 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 
6060 
066 1 
0852 
0053 
6064 
0055 
6356 
0067 
0668 
6069 

0076 
0671 

0072 

0073 
0874 
0075 
6876 

0077 
6673 
6879 
0333 
0331 
6832 
0833 
08 34 
0835 

r r ''t/- 
U o c,' 

68S7 

0638 

6039 

6090 


C>toiokREVISION HISTORY: 

C 

C>*om<L0CAL VARIABLES: 

C 

LOGICAL RANGE ! logical function which determines if its 1st 

C ! parameter is within its 2nd and 3rd inclusive. 

INTEGER TERM ! logical unit for terminal output 

INTEGER LUTL0*LUTHI ! limits for COMTAL funct ion memories 
C 

C>ioiokINITIALIZATIONS: 

C 

DATA TERM/1/ 

DATA LLlTLO/1/, LUTHI/4/ 

C 

C>Moi<PROCESSING 

C 

IF (.NOT. (RANGE (LUTNUM.LUTLO^LUTHI))) GOTO 8001 ! error return 
C 

C Programming notes: 

C The EXEC command parameters are discussed in the HP RTE-6/VM 

C Programmer's Reference Manual, 2-19ff. The COMTAL parameters 

C are discussed in section 5.2.3 of the COMTAL User's Manual. 

C 

C The first parameter to EXEC identifies the EXEC command os 
C Q write command. The second parameter identifies the resident 
C HP driver (3SB) and gives the code (20BB) that identifies this 
C operation, a transfer to a COMTAL function memory (LooK-Up Table). 

C The third parameter gives the Look-Up Table values (TABLE), 

C and the fourth parameter gives the length of TABLE in words. 

C The fifth parameter is a COMTAL code that is described bit by 

C bit in the User's Manual. In short, bit 15 signifies write to 
C COMTAL, bit 14 designates function memory instead of pseudocolor, 

C bit 12 signifies standard replacement, and bits 88.9 identify the 
C function memory to be used. (Bits are numbered 15 high, 0 low). 

C 

CALL EXEC( 2, 36B+260B, TABLE, 256, ( (LUTNUM-1)*256) ) 

RETURN 

C 

C>:«o:<ERR0R RETURN 
C 

8061 URITE(TERM, 8303) LUTNUM, LUTLO, LUTHI 

8063 F0RMAT(' THE FUNCTION MEMORY NUMBER, ', 14, ' , IS OUT OF RANGE:', 

1. 214, '.') 

8800 LJRITE(TERM, 8901) 

8901 F0RMAT(' IJRLUT FAILS. NO TRANSFER TO COMTAL.') 

END 
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8.UIRPSU T«=00004 IS ON CR00021 USING 00012 BLKS R=0000 


0001 

0002 

0003 

0604 

0005 

0006 
000? 
0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 
6016 

0017 

0018 

0019 

0020 
0021 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE URPSU (TABLE) 

CCCCCCCCCCCCCCCCCCCCCCCGCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


CJteXJKPARAMETER DECLARATIONS: 

c 


c 

c 

c 

c 


INTEGER 


TABLE (768) 


ihe v^-alues of tho COMTAL look-up 
table are read from this array. The RED toble 
is in TABLE( 1 :256) ; the GREEN, in TABLE (257: 5 12) 
and the BLUE, in TABLE (5 13: 768) . 


C>t»ioK INTRODUCTION: 

C 

C The subroutine URite the PSeUdocolor table writes the 3 COMTAL mappings 
C from 0-255 which comprise the pseudocolor table. Note that the ualue«; 

C are placed into TABLE in the order RED, GREEN, and BLUE. 


CmoIokLANGUAGE : 

C 

C FORTRAN 77, the HP- 1000 version for RTE-6/VM. 
C 


0022 C>!W<)ll IMITATIONS: 

0023 C • 

0024 C Although 8 bits are sufficient for the look-up table values, full 

0025 C integers are used in TABLE. This format is dictated by the COMTAL 

0026 C conventions as given in section 5.2.3. 1. 

0027 C 

0028 C>l«loi?SUBPROGRAMS CALLED: 

0029 C 

0030 C NONE. 

003 1C 

0032 C»::*URITTEN BY: 

0033 C 

code on which this subprogram is based was written by 
60ou C NETTIE D. FAULCON, July, 19B3. This subprogram was written bu 

0036 C LEITH MILLcR, July, 1984, with the support of a NASA-ASEE 

0037 C summer fellowship. 

0038 C 

0039 C:h:";:REVISION HISTORY: 

0040 C 

0041 C 

0042 C»:»::L0CAL VARIABLES: 

0043 C 

0044 C NONE. 



0045 C 

0046 C>totoRlNITIALIZftTIONS: 

0047 C 

0048 C NONE. 

0.049 C 

0050 C>M«>kPROCESSING 
0851 C 

0052 C Programming notes: 

0653 C The EXEC command parameters are discussed in the HP RTE-6AT1 

0054 C Programmer's Reference Manual. 2-19ff. The COMTftL parameters 

0055 C are discussed in section 5.2.3 of the COMTRL User's Manual. 

0056 C 

6857 C The first parameter to EXEC identifies the. EXEC command as 

6058 C a write command. The second parameter identifies the resident 

0859 C HP driuer (36B) and gives the code (30BB) that identifies this 

0060 C operation, a transfer from the COMTftL pseudocolor table. 

0351 C The third parameter gives the array that will hold the values. 

0052 C and the fourth parameter gives the length of TftBLE in words. 

0863 C The fifth parameter is a COMTftL code that is described bit by 

6064 C bit in the User's Manual. The DVR41 driver takes care of all the 

6655 C bits except 82.9 which identify the color to be transferred. 

0066 C 

6867 C Note that we make three separate calls to EXEC. Each call fills a 

0868 C different section of the pseudocolor table from the TftBLE array. 

0669 C 

0070 CftLL EXECC 2. 36B+300B. TftBLE (1). 256. 1*256 ) ! red 

6871 CALL EXECC 2. 36B+300B. TftBLE C257). 256. 0*256 ) ! green 

6872 CftLL EXECC 2. 36B+300B. TABLEC513). 256. 2*256 ) ! blue 

0073 RETURN 

0874 END 
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£.U^TftR T=£S034 IS ON CR03321 USING 00002 ELKS R=G3S0 

0601 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccctccc 

So ccccccSSaccSccSSraacSct^ 

0504 C 

C^."-i'->;?ARftMETER I>ECLftRATI0N3: 

^ IHTFGFR XCOOR ! X coordinate of the desired target locotion. 

SnTCgK yEoOR 1 Y coortHncl. of ioo dosirod torgol loCdUon. 

c 

C>to:o!: INTRODUCTION: 

C This subroutine WRites a TARget location to the CONTAL, thereby 
C ‘'positioning" the COtTTAL cursor. 

C 

C>io!i'.!!'LANGUAGE : 

p'"' \ C Q 

6017 C FORTRAN 77, the HP- 1000 urrsion for RTE-6/VM. 

6 G 18 C 

0619 LIMITATIONS: . 

So® 6 Soih tho XCOOR end YCOOR must do yHhln Iho reng. 0 (o ="• ” 

eoia C on orror- »osdogo is prinfod ond no Ironster toKos place lo Ihc COmOL. 

0023 C 

0024 C>k>k>^SUBPROGRAMS CALLED: 


GC35 

G006 
0007 
D6CS 
0509 
0010 
6011 
0612 
0615 
BC 1 4 
0515 


r 


0025 

0026 C name source load remarKs 

002? C 


0023 

C 

RANGE GRANGE 

0029 

c 


0630 

c 


003 1 


•WRITTEN BY: 

0632 

c 


0033 

r- 

L- 

The code on which 

C: '•“i *? ,4 
Li u* ‘-V 

C 

NETTIE D. FAULCON 

6835 

c 

KEITH MILLER, 

60.36 

c 


0637 


i: REVISION HISTORY: 

G ■'Ci 

08c5i'' 

C 


0040 

C>nn 

:>; LOCAL VARIABLES: 

0841 

C 


0042 


LOGICAL RANGE 

6043 

c 


0644 


INTEGER TERM 


iogiwwi — 

first parameter is within the last two parameters. 


June, 1984, 


! function that ascertains if its first parameter 
! is between (inclusive) its last 2 parameters 
! the logical unit for terminal output 
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0045 

004G 

004 ^ 

0048 

0849 

0050 

0BS1 

0052 

0053 

0054 

0055 
0G56 
005? 
0058 
0659 
0B60 
GDGi 
D0C2 
0063 
6064 
0065 
6056 
006? 
0868 
0069 
00?0 
00 ? 1 


INTEGER LHLO^ LNHI ! the limits oh GOhUfiL image line numbers 
INTEGER IBUF(2) ! buffer for passing coordinates to COnTAL 
INTEGER IDUMMV ! an ignored E^^EC call parameter 
G 

CH^'X.INlTlftLIZfiTIONS: 

r 

DATA TERH/1/ 

DATA LNLO/0/> LNHl/511/ 

G 

Gte PROCESS IMG 
C 

IF (. NOT .( RANGE ( XC0QR> LNL0>LNHI))) GOTO 6001 ! ehrbr return 

IF (.NOT. (RANGE (YC00R> LNL0,LNHD)) GOTO 8101 ! error return 

C 

G Programming note: 

G The EXEG call ife explaihed in detail in the 
C KP Programmer's Reference Manual for RTE-6/VM/p.2-19f f . This 

C transfer function for the COMTAL is discussed in the 

G GOMTAL User’s Manual , Section 5*2^4. In the EXEG coll 
C that follows* the HP resident driver Called DVR41 is cdlled as 
G follows: the first parameter (2) signifies a write; the 
G second parameter is in tuio parts: 366 identifies the resident 

G D'i/R41 driver, and 4006 identifies the target transfer operation 

G of that driver; the third parameter (IBUF) contains the two coordinates 

C to be transferred, and the fourth pdrameter gives the length of the 

G buffer in words. The last parameter is ignored. 

C 


00?2 IBUF(l) ■= XGOOR 

00?3 IBUF (2) •= S'GOOR 

0'0?4 GALL EXEG (2. 36B+400B. IBUF. 2. IDUMMYI 

00?5 RETURN 

G8?6 C 

60?? CMrt:»€RR0R RETURNS 


G0?8 

G 



CC79 

8001 

UR I TE (TERM. 8003) 

XGOOR* LHLO* LNHI 

0233 

8823 

FORMAT (' XGOOR,'. 

15, ' OUT OF RANGE:'* 

0031 


GOTO 8900 


G382 

C 



0023 

8101 

UR I TE (TERM. 8163) 

YCOOR, LNLO. LNHI 

2w34 

‘2100 

FORMAT (' YCOOR,’. 

15* ' OUT OF RANGE:'. 

0025 


GOTO 8900 


6036 

G 



0087 

8960 

URITE(TERM. 8901) 


06SS 

8901 

FORMAT (' URTAR FAILS. NO tRAHSFER.') 

0039 


RETURN 


6090 


END 



214*' 


'.1^, 


' ) 


* 
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TEST PROGRAM SOURCE CODES 


S,TftriD2 .T=B0004 IS ON CR00021 USING 00002 ELKS R=0000 

0001 PROGRAM TADD2 

0002 C 

0003 C TEST THE ADDPROGRAM ADD 12 (ADD IMAGES) 

0084 C 

0005 C KEITH MILLER 7/17/84 
6606 C 

0087 C LOAD MODULES: XTADD2, XADDI2, JiCMMND- JiRANGE, JiDIGlT 

0008 C 

0009 CALL ADDI2(0, 1>2, 1) ! SHOULD GIVE OUT OF RANGE ERROR. 

0010 CALL ADDI2(1, 0,2.1) ! " 

0011 CALL ADDI2(1,2,0, 1) ! " 

0012 C 

0013 CALL ADDI2C3, 1,2, 1) ! SHOULD WORK. 

0014 C 

6015 STOP 

0016 END 
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8.TADDI 1^60004 IS ON CR00021 USING 00032 ELKS R=0000 

0001 PROGRAM TADDI 

0602 C 

0003 C TEST THE ADDPROGRAM ADDIM (ADD IMAGES) 

0004 C 

0065 C KEITH MILLER 7/17/84 

0006 C 

0607 C LOAD MODULES; %TADD1, JiADDIM, XCMMND, ;;RANGE, )(DIGIT 

0068 C 

0009 CALL ADDIMC0, 1.2, 1) ! SHOULD GIVE OUT OF RANGE ERROR 

6010 CALL ADD IM( 1,0,2, 1) ! “ 

0011 CALL ADDIM( 1,2,0, 1) ! " 

00 12 C 

6013 CALL ADDIM(3, 1,2, 1) 

6014 C 

0615 STOP 

6016 END 


§ 
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e,TCLR T=03004 IS ON CR03821 USING 08001 BLKS R=G000 


0001 

0002 C 

0003 C 

0004 C 
6005 
0006 
0007 
0608 
6009 
0016 
0611 
0012 
6613 
6014 


PROGRAM TCLR 


lesls the DSPCL subroulinQ 

CALL DSPCLC8, 1,2.3) 

STOP 

END 
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I.TCLRG 1^00004 IS ON CR0B021 USING 000B2 ELKS R=0803 

0001 PROGRAM TCLRG 

6002 C 

0003 C TEST CLEAR GRAPHICS 

0004 C 

0005 C KEITH MILLER, 7/2/84 

0006 C 

0007 C LOAD MODULES: %TCLRG, ?iCLRGR, GRANGE, ?iCMMND. %DIGIT 

0608 C 

0609 INTEGER IBUPa28) 

6010 CHARACTER»:20 CBUF ! OVERLAYS THE FIRST 10 ELEMENTS OF IBUF 

0011 EQUIVALENCE (IBUF, CBUF) 

0012 C 

0013 CBUF -= 'CLEAR GR 2’ 

0014 C 

6015 CALL CLRGR(0) 

0016 CALL CLRGR(l) 

0617 CALL CrlMNDCIBUF, 10) 

6018 CALL CLRGRC5) 

0019 C 

0620 STOP 

0021 END 

0022 
0623 

0024 

0025 

0026 


•i 
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S,TCLRI T>=BO004 IS ON CR00021 USING 00002 BLKS R=B0B0 


0001 

0002 C 

0003 C 
0604 C 
00:^5 C 

0606 C 

0607 C 

0608 C 
0809 
0010 
0011 
0012 C 
6013 
0014 C 
66:5 

0u 1 b 

0017 

6018 

0019 C 

0020 
002 1 
0022 
0023 
6624 
0025 
6026 


PROGRfth TCLRI 
TEST CLEftR IMAGE 
KEITH MILLER. 7/2/84 

LOAD MODULES: JiTCLRI, JiCLRIM. ‘4RANGE. ?iCMMND. XDIGIT 
INTEGER IBUF(128) 

CHARACTER>i:20 CBUF ! OVERLAYS THE FIRST 10 ELEMENTS OF IBUF 
EQUIVALENCE (IBUF. CBUF) 

CBUF = 'CLEAR IMAGE 2' 

CALL CLRIMC0) 

CALL CLRIM(l) 

CALL CKMNDCIBUF. 13) 

CALL CLRIM(5) 

STOP 

END 
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8.TCMM2 T=B0004 IS ON CR00021 USING 00003 BLKS R«0000 

0001 PROGRAM TCMM2 

0002 C 

0063 C TEST CMMND AGAIN 

0004 C 

0005 C KEITH MILLER, 7/12/84 

0606 C 

0067 C LOAD MODULES %TCMM2, JfCMMND, XUAIT 

6008 C 

0009 INTEGER INNUM, I, IBUF(128) 

0010 CHARACTER>i<255 CBUF 

0011 EQUIVALENCE (IBUF,CBUF) 

0012 C 

0013 DO 1000 I - 0,256 

0014 URITE(1-50B) I 

0015 500 FORMAT ('TESTING CHARACTER , 14) 

00 IG CALL WAIT 

0017 CBL"^ - 'G 2 PRO 1' 

60 IB CALL CMMND(IBUF,9) 

0019 CBUF - CHAR(I) 

0020 CALL CMMND (IBUF,1) 

0021 1000 CONTINUE 

6022 STOP 

0023 END 
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S.TCmN T=60004 IS ON CR00021 USING 66002 BLKS R=0060 


00C1 


PROGRfiM TCmN 

0802 

C 


8003 

C 

Keith Miller* 6/16/84 

0004 

C 


0005 

C 

Testing SUBROUTINE CMMHD 

0006 

c 


669? 

c 

LOAD MODULES REQUIRED: JiTCMMN, %CMMND 

0668 

c 


0609 


INTEGER I3UF(1281 

0010 

r 


0011 


URITECl*!!' 

0012 

1 

FORMAT (' TO EXIT THIS TEST. ENTER AH EMPTY STRING') 

0613 

C 


0014 

5 

URITEU. 10) 

0015 

10 

FORMAT( "ENTER ASCII STRING") 

6816 


READ Cl. 20) IBUF 

001? 

20 

FORMAT Cl 28A2) 

0018 


N = ITLOGC) ! ITLOG gives the number of characters typed 

0019 


IF (N .EQ. 0) GOTO 999 

0020 

C 


0021 


CALL CMMNDCIBUF.N) 

6022 


GO TO 5 

0023 


999 END 


&TCMT T=03004 IS ON CR00021 USING 00002 ELKS R=0000 


0001 
0602 
0603 
0004 
0605 
GC6S 
0307 
0603 
0DQ9 
00 1 0 
00 1 i 
6012 

0013 

0014 

0015 

0016 

0017 

0018 
0019 


PROGRAM TCNT 
C 

C TEST THE SUBROUTINE COUNT 

C 

C KEITH MILLER 7/11/84 

C 

C ■ LOAD MODULES: ?iTCNT, «COUNT, ?iRP,HGE, %RDIL2 
C 

IHTEGERX4 I4BUF(256) 

INTEGER INDEX 
C 

CALL C0UNTCI4BUF, 1) 

DO 1000 INDEX >= 0, 31 

UR ITE( 1.999) (I 4BUF(( INDEXES) +J). J-1.8) 
999 F0RMAT(8I9) 

1660 CONTINUE 
C 

STOP 

END 
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E.TCONS T=e.3004 IS ON CR00021 USING 00002 ELKS R=0000 


0001 

0602 

0003 

0004 
0605 
0006 
0607 
0368 
0039 
0010 
0011 
0012 

0013 

0014 


PROGRAM TOONS 

0 

C TEST CONCATENATION OF CHARACTER STRING. FORTRAN 77 
C 

INTEGER I HOLD 
CHARACTER>K1 CH0LD(2) 

EQUIVALENCE < IHOLD. CHOLD) 

CHARACTER'S STRING 
C 

I HOLD = 6 + 60S 

STRING ■= // CH0LDC2) // 

URITECl. 1060) CHOLD (2). STRING 
1000 FORMATC' LETTER"', Al, STRING"', A5, '.') 

STOP 



6.TG0PY T=ES604 IS ON CROBOSl USING 80801 BLKS R=C803 


0601 PROGRAM TCOPY 

0602 C 

6803 C TEST I COPY 

0004 C 

0005 C LOAD MODULES REQUIRED: %TCOPY,?i ICO?Y,%CMMND,%RANGE, 

666S C JiDIGIT 

6007 C 

0003 CALL I COPY (1,2) 

0009 CALL IC0PY(5,1) ! SHOULD GIVE OUT OF RANGE ERROR 

0010 CALL IC0PY(2,-3) ! SHOULD GIVE OUT OF RANGE ERROR 

0611 STOP 

0012 END 
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S.TDIG.I T=E0B04 IS ON CR00021 USING 60002 ELKS R=0600 

0001 PROGRAM TDIGI 

0002 C 

6033 C TEST DIGIT 

6004 C KEITH MILLER, 7/2/84 

0605 C 

6606 C LORD MODULES: ?{TDIGI, %DIGIT, ?iRfiNGE 

0007 C 

6608 INTEGER INT 

0039 CHARACTER>kl HCHRR 

6010 C 

00 n DO 1000 INT *= -1, 12 

0012 CALL DIGITCHCHAR, INT) 

0013 UIRITEC 1,501) INT, HCHAR 

0614 501 FORMATC' INTEGER INPUT AND CHARACTER OUTPUT; ', 1 13, lAl, ' ') 

0015 1060 CONTINUE 

63 16 C 

001? STOP 

0018 END 

0019 

6020 • 

0021 

0022 

0023 

0024 
6025 
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e.TDSP 

ee0i 

6802 :^ 

0803 

0804 

0005 

0006 
0007 

0Uij3 

0609 
0010 
60 1 i 
0012 
00 13 
0014 
0613 
00 io 
6017 
0018 

0019 

0020 
662 1 


T=08004 IS ON CR03B21 USING 60001 BLKS R>^0080 

PROGRAM TDSP 
C 

C TEST DSPBU AND DSPCL 
C 

C LOAD MODULES REQUIRED: Ji:TDSP, %DSPBIJ. XDSPCLy %CMMND. 
C %UAIT, ?^RANGE. ?;'DIGIT 

C 

CALL DSPBLKl) 

CALL WAIT 
CALL DSPBU (2) 

CALL UAIT 
CALL DSPBUC3) 

CALL UAIT 
CALL DSPBU(0) 

CALL UAIT 

CALL DSPCLn,2,3,S) 

STOP 

END 
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8.THIST T=60004 IS ON CR00021 USING 00002 BLKS R=0080 


0001 PROGRAM THIST 

0002 C 

0003 C TEST THE SUBROUTINE HISTO 
6004 C 


0005 

C 

KEITH MILLER, 7/31/84 

606S 

C 


006? 

C 

LOAD MODULES: >iTHIST, 

6606 

C 


6009 


INTEGER TABLE (256) 

6010 


INTEGER I ! 

0011 

C 


6012 


CALL HISTO (1) 

6013 


STOP 

6014 


END 


^HISTO, «DIGIT, ?iCMMN2. GRANGE 
implicit do loop index 



G.THORM T=£:.0004 IS ON CRB0e21 USING 0O002 ELKS R=O000 


0001 
0332 C 
0303 C 
6004 C 
0605 C 
6000 C 
0037 C 
GGG3 C 
■0G09 
0010 
0011 


PROGRAM TNORM 

TEST THE PROCEDURE NORML. 

KEITH MILLER JULY 6, 1983 

LOAD MODULES: ^^TNORM, ?<NORML, %HILO, ?iRDIL2, %WRIL2- JJRANGE 

CALL NORML (2) 

STOP 

END 



6.TH0TE t=60004 IS ON CR00021 USING 00002 BLKS R=0000 


0001 


PROGRAM TNOTE 

0002 

C 



0003 

C 

TEST 

THE SUBROUTINES NOTES AND N0TE2 

0004 

C 



6005 

c 

KEITH 

MILLER, 7/26/84 

6006 

c 



000? 

c 

LOAD' 

MODULES: JiTNOTE, ?iNOTES, %N0TE2, %DSPGR 

0008 

c 


%CMMN2, 7.CMMND,, ‘/DIGIT, /RANGE 

0009 

c 



0010 


CHARACTER>k255 CBUF 

6011 


INTEGER IBUFa28) 

0012 


EQUIVALENCE (CBUF.IBUF) 

6013 

c 



6014 


CALL 

N0TE2(1, 100, 100,'B',3,' l.BLUE') 

6615 


CALL 

N0TE2(1, 163,200,'R',3,'2.RED') 

001b 


CALL 

N0TE2 (1 , 100, 300, ' G ' , 3, ' 3 . GREEN' ) 

0017 


CALL 

N0TE2C1, 100,400,'S',3,'4.SAME') 

0016 

c 



0019 


CBUFCl: 11) •= 'USING NOTES' 

0020 


CALL 

NOTESn, 10, 10,'R', 1,CBUF, 11) 

0021 

c 

CALL 

NOTESCS, 10, 10,'R', 1,CBUF, 11) 

0022 

c 

CALL 

NOTESC 1,512, 10,'R', 1, CBUF, 11) 

0023 

c 

CALL 

NOTESC 1,-1, 10,'R', 1, CBUF, 11) 

0024 

c 

CALL 

NOTESa, 10,512,'R', 1,CBUF, 11) 

0825 

c 

CALL 

NOTESa, 10,-1, 'R', 1, CBUF, 11) 

0826 

c 

CALL 

NOTESa, 10, 10,'r' , 1,CBUF, 11) 

002? 

c 

CALL 

NOTESC 1, 10, 10,' ',1, CBUF, 11) 

0028 

c 

CALL 

NOTESC 1, 10, 10,'R', 0,CBUF, 11) 

6029 

c 

CALL 

NOTESCl, 10, 10,'R' , 17, CBUF, 11) 

0630 

c 



603 1 


CALL 

N0TE2C2, 120, 240, 'B', 3, 'USING N0TE2') 

0332 


CALL 

NOTE2C0, 120, 240, '8', 3, 'USING N0TE2') 

6Dbb 

c 

CALL 

H0TE2C5, 120, 240, 'B',3, 'USING H0TE2') 

0034 

c 

CALL 

N0TE2 C 2 , 5 1 2 , 240-, ' B ' , 3 , ' US I NG N0TE2 ' ) 

6335 

c 

CALL 

N0TE2C2, -1,248, 'B',3, 'USING N0TE2') 

0336 

c 

CALL 

H0TE2C2, 120-512, 'B',3, 'USING N0TE2') 

033? 

c 

CALL 

H0TE2C2, 120, - 1 , ' B' , 3, ' US IHG N0TE2') 

0038 

c 

CALL 

N0TE2C2, 120, 243, 'b',3, 'USING N0TE2') 

6039 

c 

CALL 

N0TE2C2, 120, 240, 'B',0, 'USING N0TE2') 

0040 

c 

CALL 

N0TE2C2, 120-240. 'B', 17, 'USING N0TE2' ) 

0041 


CALL 

DSPGRCl) 

0042 


CALL 

DSPGRC2) 

0043 


STOP 


0044 


END 



XURTPIR, 

%DELPlY 
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e,TPNT 

T= 

CS604 IS ON CROB021 USING 00GBI 

ELKS P=0B30 

6C01 


PROGRAM TPNT 


06Q2 

C 



06Q3 

c 

TEST THE SUBROUTINE PAINT 


0064 

c 



0605 

c 

KEITH MILLER- 7/16/84 


66GS 

c 



6037 

c 

LOAD MODULES: %TPNT, ?iPAINT, 

?iRANGE- JillRIRC, 

£■ L; u 

c 

1^RDIL2- ?ilJRIL2- 

«CMMND- JiDSPBU 

6609 

c 



oeio 


CALL PAINT(l-35- 200) 


C31 1 


STOP 


0612 


END 



JiRDTftR. 
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G.TPROF T=E9004 IS ON CR00021 USING 00002 BLKS R*0000 


0001 

6002 

6303 

6004 

0005 

6GGS 

000? 

0068 

BB0S 

0610 

6011 

0012 

0013 

0014 


PROGRAM TPROF 
C 

C TEST PROFL SUBROUTINE 

C 

C KEITH MILLER, 7/12/84 

C 

C LOAD MODULES: ^TPROF, ^PRCFL. GRANGE, ^CMMND, %UAIT, 

C JiDlGIT 

C 

CALL PROFL (1,1) 

URITECl, 1601) 

1001 FORMAT(' SUCCESSFULLY RETURNED TO CALLER OF PROFILER') 
STOP 
END 



£.TRP!MG T=e0604 IS ON CR00021 USING 80002 ELKS R=08B0 

8031 PROGRAM TRANG 

0602 C 

6633 C TESTS THE RANGE FUNCTION 

8604 C 

0635 C LOAD MODULES REQUIRED: STRANG, liRANGE 

663S C 
0607 C 

0363 LOGICAL RANGE, ANSIJER 

0639 C 

6010 URITEd,!) 

0011 1 FORMATC' SHOULD BE T F ERROR-F' ) 

0012 C 

0313 IJRITEC 1.2001) RANGEC2. 1,3) 

0014 2001 FORMATC' ', LI) 

0015 LJRITE(1,2001) RANGE(1,2,3) 

96 IS ANSIJER = RANGE (3, 2, 1) 

0017 lJRITE':i.20Ql'' ANSWER 

0318 C 

0619 STOP 

0020 END 

0321 

0022 

0023 

6024 

6025 
0026 
002? 
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E.TRDTA T=E0004 IS ON CRG0021 USING 00002 ELKS R=0000 


6301 

6632 

6003 

0004 

6605 

63GS 

6337 

OijbC' 

03GS 
6610 
0611 
0012 
. 6013 
6014 
0315 
63 IS 
6017 
0018 


PROGRfiti TRDTft 
C 

C TEST THE SUBROUTINE RDTAB 

C 

C KEITH MILLER, 7/19/84 

C 

C LORD MODULES: %TRDTfl, JiRDTftB- GRANGE 

r 

INTEGER TABLE (16), INDEX. UHICH 
C 

DO 2000 UHICH •= 1,4 

CALL RDTAB (TABLE, UHICH, 0) 

UR ITE( 1,999) UHICH. TABLE(l), TABLE (2), 
999 F0RMAT(I2, ' ) 409) 

2060 CONTINUE 
C 

STOP 

END 


TABLE (3), TABLE (4) 



&TSETV T=E0004 IS ON CR00021 USING 00002 ELKS R=0000 


0001 
6662 C 

0003 C 

0004 C 
6665 C 
6036 C 
0667 C 
6008 C 
0609 
0010 
0011 

0012 C 

0013 

0014 


PROGRAM TSETV 

TEST THE SETV SUBROUTINE 

KEITH MILLER. 7/17/84 

LOAD MODULES: %TSETV, JiSETV, ?iRANGE. %DIGIT. JiCMMND, 

CALL SETVC2) ! SHOULD BE AN ERROR 
CALL SETV(ll) ! SHOULD BE AN ERROR 
CALL SETV (5) ! SHOULD UORK 

STOP 

END 


* 

JiDSPBU , 


182 



E.TSPRD T=00B04 IS OH CR00B21 USING 00003 BLKS R=BS00 

0001 PROGRAM TSPRD 

0002 C 

0003 C TESTS THE PROGRAM TSPRED. 

0004 C 

0605 C KEITH MILLER, JULY 5,1984 

0006 C 

0007 C LOAD MODULES: ^TSPRD, %SPRED, JiRDIL2, «URIL2, GRANGE 

0003 C 

0009 INTEGER IBUFC512), II, 12, 13, INDEX 

0010 C 

0011 C LIRITEU, 1001) 

0012 C1061 FORMAT (' GIVE THREE SHADES, USING THE FORMAT 314:') 

0013 C READ <1, 1003)11, 12, 13 

6014 C10B3 F0RMAT(3I4) 

0015 C 

0016 C DO 2000 INDEX=1,170 

0017 C IBUF(INDEX) - II 

6018 C IBUFCINDEX+170) «= 12 

0819 C IBUFUNDEX+340) = 13 

0028 C2000 CONTINUE 

6021 C 

0022 C IBUFC511) = 13 

0023 C IBUF(512) = 13 

6824 C 

0625 C DO 3000 INDEX=0,511 

0026 C CALL URIL2a, INDEX, IBUF) 

0027 C3000 CONTINUE 

0028 C 

6029 CALL SPREDCl) 

0030 C 

683 1 STOP 

0032 END 
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8.TSUBI T«=60004 IS ON CR00021 USING 00002 ELKS R=00B0 


0001 PROGRAM TSUBI 

0302 C 

0003 C TESTS SUBROUTINES SUBIM AND SUB 12 

0004 C 

6005 C KEITH MILLER 7/23/84 

6006 C 

0007 C LOAD MODULES: JiTSUBI, ?iSUBIM, %SUBI2, JiRANGE, 

6603 C %UAIT, XCMMND 

0609 C 

0610 C 

6311 CALL SUBIM(1,3.2)! no 

0612 CALL WAIT 

6313 CALL SUBI2(1,3,2)! 128 

0014 C 

0315 STOP 

0316 END 


liDIGIT, 


» 
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LTTHRS T=E0004 IS ON CR00021 USING 00003 ELKS R=0O83 


0601 

riprio 

P 


PROGRAM TTHRS 

Out-’c 

0G03 

L» 

c 


TESTS THE SUBROUTINE THRESHOLD 

CSC 4 

c 



6SG5 

c 


KEITH MILLER 7/25/84 

0605 

c 



0087 

r 1 Cl o 

c 

p 


LOAD MODULES: ?;TTHRS, XTHRSH, %RANGE- ?iRDIL2, 

U Cl cl o 

0005 

L 


INTEGER THRESH! THRESHOLD FROM USER 

6010 



INTEGER IN, OUT! TUO IMAGES 

6011 

c 



6812 



URITE(1,1001) 

6013 


1061 

FORMAT(' GIVE THE OUTPUT IMAGE NUMBER:') 

6014 



READCl, 1603) OUT 

C Li 1 D 


1063 

FORMATUl) 

Ou 1 b 



LJRITEd- 1005) 

0817 


1065 

FORMAT(' GIVE THE INPUT IMAGE HUMBER:') 

6018 



READCl, 1003) IN 

6019 



LlRITECl, 1007) 

0020 


1007 

FORMATC' GIVE THE THRESHOLD PIXEL VALUE:') 

602 1 



READCl, 1609) THRESH 

6022 


1609 

FORMATC I 3) 

0023 



CALL THRSHCOUT, IN, THRESH) 

0024 



STOP 

6025 



END 


^LIRIL2 



E.TTSTI T=E0004 IS ON CR00021 USING 6000 1 BLKS R=0060 


0001 

0002 C 

0003 C 
0064 C 

0005 C 

0006 C 

0007 

0008 
0009 


PROGRftM TTSTI 
TESTS THE TEST IMAGES 

LOAD MODULES: fiTTSJl, ^iTSTIl, JiLJRILN- ?iRANGE 

CALL TSTIKl) 

STOP 

END 
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£,TTV2C T=EG004 IS ON CRO0021 USING 03002 BLKS R=0300 


0001 

PiT',riy 

r 

PROGRAM TTV2C 




U U U 

0003 

w 

C 

TEST THE SUBROUTINES TV2CM AND TV2C4 


BGG4 

C 





0605 

c 

KEITH MILLER, 

7/17/84 



0806 

c • 





6007 

c 

LOAD MODULES: 

>iTTV2C, 

JiTV2C4, JiTV2CM, 

?iCMMND, 

0003 

c 


%RANGE. 

JiDIGIT, MUIAIT, 

% ADD 12, 

0009 

c 





6616 


URITEU, 1001) 




061 1 

1061 

FORMAT r MAKE 

SURE TV 

CAMERA IS SET TO 

1 IMAGE 

6012 


CALL WAIT 




6013 


CALL TV2C4 




8614 


STOP 




6615 


END 





J^DSPBU, 

^'DSPVD 

5.') 
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E.TUP1IT T«60004 IS ON CR00021 USING 00002 BUS R«=0000 


0001 


PROGRfifI TLlftIT 

06G2 

C 


0003 

C 

TESTING THE UAIT SUBROUTINE 

0004 

C 

KEITH MIUER, JUNE 8, 1984 

0005 

C 


0006 


INTEGER lERR, IX, lY 

0007 

c 


0008 


URITEd, 1000) 

0009 

1060 

FORMATC ' START UAIT TEST') 

0010 


CALU UAIT(IERR) 

0011 


CALL KMRTAC IX, IV, lERR) 

0012 


URITEd, 2000) 

0013 

2060 

FORIiATC ' END UAIT TEST') 

0014 

C 


0315 


STOP 

0016 

001? 


El'ID 
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£,TbJIFE T=CS004 IS ON CR00O21 USING 03082 ELKS R=GB03 


0001 

0002 C 

0003 C 
0604 C 
0085 C 
608b C 
BOO? C 
0003 C 

0 O .:.3 c 
0010 
03 1 1 
0012 
6613 C 
6014 
0315 C 


UC' A 

0813 

6019 

6020 
0021 
6622 
6323 
0024 


PROGRAM TUI PE 

TESTS THE PROCEDURES DSPGR AND UIPGR 
KEITH MILLER 7/30/84 

LOAD MODULES: %TUIPE, «DSPGR, %UIPGR, XUAIT, 
GRANGE, %DIG.IT, ?1CMMN2 


CALL DSPGR CD 
CALL DSPGR (2) 
CALL DSPGR (3) 

CALL UAIT 


CALL UIPGR (3) 
CALL UAIT 
CALL UIPGR (2) 
CALL UAIT 
CALL UIPGR a ) 
CALL UAIT 
CALL UIPGRU) 
STOP 
END 



8.TXFDS -T=08B04 IS ON CR08B21 USING 00001 ELKS R*=0000 


0001 
0082 C 

0003 C 

0004 C 

0005 C 

0006 C 
000? C 

6008 C 

6009 

6010 
0011 
0812 C 

0013 

0014 

0015 C 

0016 C 

0017 C 

0018 
0019 


PROGRAM TXFDS 

TEST PROGRAM FOR BUFDS, CLFDS 
KEITH MILLER. 7/12/84 

LOAD MODULES: %TXFDS, ?iBL)FDS. %CLFDS. JJRANGE. ?JU!RILN. J^CMMND. %DIGIT 

INTEGER FLNAMEC3) 

CHARACTER:i:6 CNAME 
EQUIVALENCE (FLNAME. CNAME) 

CNAME = 'CFXRAY' 

CALL BUFDSCl, FLNAME) 

CNAME “ 'CFMAND' 

CALL CLFDSCl 2.3,8, FLNAME) 

STOP 

END 
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LTXGLN T=EG004 is on COC0321 USING 03332 BLKS R=3G3S 


6001 

0332 

0083 

6384 

0005 

606b 

6687 

63C8 

6609 

6010 

6611 

6612 

6013 

8014 

6015 

0016 

0617 

0618 


PROGRAM TXGLN 
C 

C TEST IJRGLN AND RDGLN 

C 

C LOAD MODULES REQUIRED: 7;TKGLN-?iRDGLN,?iURGLN. GRANGE 

C 

INTEGER LINE ! number of line in image being processed 
INTEGER IBUFC32) ! buffer to hold ONOFF values^ one line/time 
C ! note that 16 ONOFF bits fit in one INTEGER 

C 

DO 2000 LINE ■= 1. 512 

CALL RDGLN (IBUF, 2 , LINE) 

C 

CALL URGLNd, LINE. IBUF) 

2060 CONTINUE 
END 
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S.TXGPT T=60B04 IS ON CR00021 USING 00002 BUS R=0000 


000 1 
6032 
6603 
0634 
6005 
0006 
0067 
0008 
6609 
0010 
0011 
6012 
0013 
6614 
0315 
6616 
6317 
6018 
0019 
0026 
6621 
0022 

0023 

0024 

0025 
0625 
0627 
6623 
0329 
6630 
005 1 
0032 


PROGRAM TXGPT 
C 

C TEST RDGPT AND URGPT 

C 

C KEITH MILLER, 6/22/84 

C 

C LOAD MODULES: %TXGPT, %RDGPT, %1-JRGPT, ?iRANGE, 8.RDTAR 
C 

INTEGER INDEX ! LOOP INDEX 
C 

DO 1000 INDEX = 1, 20 

CALL URGPTCl, INDEX, INDEX, 11 
CALL URGPT (1. INDEX, 21- INDEX, 11 
1060 CONTINUE 
C 

CALL UAIT 
C 

c DO 2000 INDEX = 1, 20 
C CALL URGPTU, INDEX, INDEX, 01 

C CALL URGPTU, INDEX, 21- INDEX, 01 

C2060 CONTINUE 
C 

DO 3000 INDEX' 1,5 
CALL UAIT 
CALL RDTARUX, lYl 
CALL RDGPTUVALUE, 1, IX, lYl 
URITEU, 20011 IX, lY, I VALUE 
2361 FORMATC' AT POINT ', 214, ' GRAPHICS VALUE'', 12 
3000 CONTINUE 
C 


STOP 

END 



C,7XILN T=ES004 IS OH CR0S321 USING 66384 BLKS R=63G0 


m 




0001 


PROGRAM TXILN 

CGQ2 

C 


000^ 

c 

TEST L'RILN AND RDILN 

0084 

c 


0005 

c 

LOAD MODULES REQUIRED: 

6606 

c . 


6837 


INTEGER LINE ! number 

r 


INTEGER IELIFC256) ! buf 

6609 

c 

! no! 

0316 

c 


06 1 1 


DO 2000 LINE =0, 511 

6012 


CALL RDILN (IBUF, 1, 

3013 

c 


0014 


CALL URILNC2, LINE, 

00 1 5 

2000 

CONTINUE 

C61S 

G01? 

0018 


END 
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&TXIPT T=60004 IS ON CR00021 USING 00002 BLKS R«=0000 

6031 PROGRAM TXIPT 

6602 C 

6663 C TEST RDIPT AND URIPT 

0604 C 

0005 C KEITH MILLER, 6/21/84 

6606 C 

060? C LOAD MODULES: >;TXIPT, «RDIPT. ?iURIPT, JiRANGE, ?iLJAIT 
6608 C 

0609 INTEGER XCOOR, YCOOR, VALUE 

0610 C 

0011 CALL RDIPT( VALUE. 1, 200. 100) 

6012 UR!TE(1.1001) VALUE 

6013 1001 FORMAT(' VALUE 14 ) 

0014 CALL LiRIPTU. 200. 100,005) 

0015 CALL RDIPT(VALUE, 1. 200. 180) 

0016 URITECl. 1001) VALUE 
001? C 

0018 STOP 

0019 END 

0020 
0021 
6022 
6023 
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G.TXIRC T=£0e04 IS ON CRO0B2i USING 60602 BLKS R=6BG0 


0901 

0002 C 

0003 C 

0004 C 
0035 C 
0306 C 
0007 C 

r r n f. 
L I ' L.I w' L 

0309 C 
0010 
00 i 1 
6612 C 

0013 

0014 
Ei0 1 5 
0016 
001? 
0018 


PROGRAM TXIRC 

TEST RDIRC (READ IMAGE RECTANGLE) 
e. UR IRC (URITE IMAGE RECTANGLE) 

KEITH MILLER, JULY 3. 1384 

LOAD MODULES: ?iTXIRC, ‘4RDIRC, ?(IJRIRC, ?(RANGE, JiRDILN, JiURILN 

INTEGER BUFFER(10,10) 

INTEGER ROU, COL 

CALL RDIRCCBUFFER, 10, 10, 1, 0, 0) 

CALL UR IRC (1, 100, 100, BUFFER, 10, 10) 

STOP 

END 
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8.TXLUT T-=E0O04 IS ON CR0S021 USING 00002 ELKS R=0000 


0601 

0002 

0603 

0004 

0665 

6606 

0667 

0668 
0069 
0610 
6011 
0012 
0613 

0014 

0015 
0616 
001? 
0018 
6019 
0020 
0021 
0022 

0023 

0024 
6025 


PROGRAM TXLUT 
C 

C TEST URLUT AND RDLUT 
C 

C KEITH MILLER, 7/10/84 

C 

C LOAD MODULES: XTXLUT, ^URLUT, ^iRDLUT, GRANGE 

C 

INTEGER TABLEC256). TABLE2(256) 

INTEGER INDEX 
C 

DO 1000 INDEX = 1,256 

TABLE (INDEX) = 256- INDEX 
1000 CONTINUE 
C 

C CALL URLUT (1, TABLE) 

C 

CALL RDLUTCTABLE2, 1) 

DO 2000 INDEX = 1,256 

URITE (1,1999) TABLE2( INDEX) 

1999 F0RMAT(I4) 

2000 CONTINUE 
C 

STOP 

END 



196 



E,TXFSU T=E9304 IS ON CR00O21 USING 00004 BLKS R=0800 

660 1 PROGRAM TXPSU 

0902 C 

0603 C TEST PSEUDO COLOR TABLE TRANSFERS: RDPSU AND URPSU 
6634 C 

C:'65 C LOAD MODULES: ‘4TXPSU, ‘^RDPSU, %IJRPSU, Jt'RANGE. %UAIT 
683c C ■ 

660? C KEITH MILLER, 7/10/84 

66 u£' C 

0009 INTEGER TABLE (768) 

6010 INTEGER INDEX 

6311 C 

0012 CALL RDPSU (TABLE) 

6013 C 

6314 L.JRITE( 1,999) 

6313 999 FORMAT (' THE REDS:') 

6616 DO 2600 INDEX=1,256 

631? IJRITEd, 1999) TABLE (INDEX) 

6018 1999 F0RMAT(I4) 

0019 2060 CONTINUE 

6626 C 

6021 CALL WAIT 

6022 C 

0023 WRITE (1,2999) 

0024 2999 FORMAT (' THE GREENS:') 

0025 DO 4000 INDEX=257,512 

6026 IJRITEd, 3999) TABLE (INDEX) 

062? 3999 FORMAT (14) 

0028 4080 CONTINUE 

6029 C 

6030 CALL WAIT 

6031 C 

6632 WRITE (1,4999) ■ 

6333 4999 FORMAT (' THE BLUES:') 

6634 DO 6000 INDEX=513,768 

6835 WR I TE (1 , 5999 ) TABLE ( I KDEX) 

603 G 5999 FORMAT (14) 

033? 6000 CONTINUE 

66301 C 

6639 DO 1000 INDEX = 1,256 

0040 TABLE (INDEX) « 256- INDEX 

0041 TABLE (INDEX+256) = INDEX 

0042 TABLE (IHDEX+5 12) = 122 

6043 1000 CONTINUE 

0044 C 
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0045 

0046 

0047 


CALL URPSU (TABLE) 

STOP 

END 



aiXTP.r: T=t?3B34 IS ON CR00021 USING 00003 BLKS R=0000 


0001 

0002 

06G3 

6604 

6005 

60Oi3 

0637 

0003 

6 O Li 
0016 
60 1 1 
6012 
0013 
6014 
0015 
66ib 
601? 
6018 
6019 
0620 
0021 
6622 
0023 
6024 

6325 

6326 
0627 
0028 
0029 


PROGRftM TXTftR 
C 

C TEST RDTAR AND UIRTAR 

C 

C KEITH MILLER. 6/21/84 

C 

C ■ LOAD MODULES: JiTXTAR, ?iRDTAR. JiURTAR, ?iRANGE 
C 

INTEGER XCOOR. YCOOR ! CURSOR COORDINATES 
INTEGER INDEX ! LOOP INDEX 

C 

, CALL URTAR( 12.34) ! INITIAL POSITION OF TARGET 
C 

DO 1000 INDEX = 1. 20 

CALL RDTARCXCOOR. YCOOR) 

IJRITE(1.500)XCOOR. YCOOR 
560 F0RMATC2I5) 

CALL LJRTARC INDEX. INDEX) 

1060 CONTINUE 
C 

CALL URTAR (513.1) ! SHOULD BE AN ERROR ON X 

CALL URTAR (0. 1) ! SHOULD BE AN ERROR ON X 

CALL URTAR(512.-1) ! SHOULD BE AN ERROR ON Y 

STOP 
END 


199 



HP DRIVER, DVR41, SOURCE CODE 


EcDOCU Tb00B04 is on CR00021 USING 00084 BLKS R-B8O0 


0081 ASMB,L 
0002 

0063 >io»o(o(o(ok 
6004 )tot>ok>K)k 
0065 >Mo(ok5)ot« 

0 6 0 D 5iOi;;iwlC5l<X> 

0007 XolotoMok 
0668 >tOtOK5K>fOl< 

0639 5k5k))otoio(! 
6610 X<Xo!<>K>rC>K 
0611 

6612 >t«<c 

0013 

6014 

0615 j(t* 

0016 >K>i: 

0617 ^^c>k 

00 IB 

0019 >l«fC 
0620 >tox 
602 1 ’♦j* 

0022 >K>K 

0623 

6024 Jtok 
0025 >M: 

B32S >i«k 
0627 >1!* 

6028 >K>t; 

0029 

0030 
603 1 

0032 >!-*■' 

0033. 

0634 

Ei0c;' 

0 b O b 

6637 

6036 >K* 

6639 »t«tc 

6040 >M< 

6041 xok 

0642 ** 

0043 >M< 

6044 xok 


NAM DVR41 


URITTEN BY M.BROUNE COULTER COMPUTER CORPORATION. 

REURITTEN BY R.U. Bagdazian HUGHES AIRCRAFT COMPANY. 

URITTEN NOV., 1979 
REURITTEN APR 1980 

DOCUMENTATION ADDED AUG. 1984. JIM MONTE ITH 8, KEITH MILLER. 

TO INVOKE THIS DRI^/ER FROM A FORTRAN ROUTINE, MAKE AN EXEC 
CALL LIKE THE ONE SHOUN BELOU. FOR MORE INFORMATION ON HCU 
THE EXEC CALL UORKS, SEE CHAPTER 2 IN THE HP MANUAL 
"RTE-6/VM PROGRAMMER'S REFERENCE MANUAL". FOR A LIST OF THE 
EQUIPMENT TABLE UORDS AND BITS. SEE SECTION L OF THE QUICK 
REFERENCE GUIDE FOR THE HP- 1000. 

SAMPLE CALL: 

CALL EXECdCODE. LU+IFUNC. IBUFF. ILEN. ICMND) 

ICODE: THIS PARAMETER IS EITHER A 1, 2. OR 3. 

1: SIGNIFIES A READ OPERATION. (COMTAL -> HP) 

2: SIGNIFIES A URITE OPERATION. (HP -> COMTAL) 

3: SIGNIFIES A CONTROL OPERATION; THIS MODE DOESN'T 
SEEM TO UORK IN OUR SYSTEM. 

THE EXEC CALL SETS BITS 0 AND 1 OF UORD 6 OF THE 
EQUIPMENT TABLE (EQT6 IN THE CODE BELOU) ACCORDING 
-TO THE ICODE VALUE. 

LU ; LOGICAL UNIT NUMBER. THE LOGICAL UNIT NUMBER FOR 

THE COMTAL IS SET AT SYSTEM GENERATION. AT THE MOMENT 
IT IS 3GB. 

IFUNC: THIS PARAMETER SIGNALS THE DRIVER AS TO THE TYPE OF 
HP <■=> COMTAL COMMUNICATION THAT IS BEING REQUESTED. 
ALTHOUGH THERE IS SOMETHING OF A RELATIONSHIP BETUEEN THE 
IFUNC CODES AND THE TRANSFER CODES OF SECTION 5.2 IN THE 
COMTAL USERS MANUAL. THE RELATIONSHIP IS HARD TO EXPLAIN, 
SO UE UON'T TRY. INSTEAD. UE'LL GIVE A CHART THAT GIVES 
THE IFUNC VALUES AND THE RELEVANT COMTAL USER MANUAL 
SECTION NUMBERS IJHERE FURTHER DETAILS ON THE TRANSFERS 


* 
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0045 

jk* 


ARE AVAILABLE. ' 

THE EXEC CALL STORES THE IFUNC CODE IN 

0046 

xok 


IN BITS 

6-10 OF 1 

WORD 6 OF THE EQUIMENT TABLE (EQT6 IN 

0047 

jlok 


THIS DRIVER). 


0048 

)loK 





0049 

)Mc 


IFUNC 

COMTAL 


00S0 



FOR DVR 

MANUAL 

REMARKS 

0051 

>tok 


« B BK S S K 

B B B SB B B 

bbb&sbbbbebbsbbbbbsbbsbbbbbbbbbbb 

0052 

XoK 


000B 

5.2. 1 

DISPLAY COMMANDS 

0053 

Jlok 


- 100B 

5.2.2 

IMAGE/GRAPHIC TRANSFERS 

0054 

Jlok 


200B 

5.2.3 

FUNCTION MEMORY (LOOK UP TABLE) 

0055 

jkJk 




TRANSFERS 

0056 

jkJk 


300B 

5.2.3 

PSEUDO-COLOR TABLE TRANSFERS 

0057 

jkJk 


400B 

5.2.4. 1 

CURSOR AND TRACKBALL REQUESTS 

0058 

JkJk 


500B 

5. 2. 4. 3 

MACRO 8. COMMAND BLOCK TRANSFERS 

0059 

JkJk 



5. 2. 4. 4 

IMAGE/GRAPHICS PARAMETER BLOCK 

0060 

JkJk 



5.2. 4.6 

CODE BLOCK TRANSFERS 

0061 

j|ok 



5. 2. 4. 8 

IMAGE/GRAPHICS TABLE READ 

0062 

JkJk 


600B 

5. 2. 2. 3 

LINK SUBFUNCTION ESTABLISHES A 

0063 

JkJk 




CORRESPONDENCE BETWEEN THE NUMBERS 

0064 

Jlok 




USED TO IDENTIFY HP CONTROLLED 

0065 

JkJk 




IMAGES AND THE INTERNAL COMTAL 

0066 

JkJk 




IMAGES. SINCE WE USE THE COMTAL 

0067 

JkJk 




1 USERS AT A TIME, WE DON'T USE 

0068 

jkJi: 




THIS SUBFUNCTION, 

0069 

JkJk 





0670 

JkJk 

IBUFF: INTEGER 

ARRAY BUFFER WHICH IS USED TO FERRY DATA BETWEEN 

0071 

JkJk 


COMTAL 1 

AND THE HP. SOMETIMES THIS BUFFER PARAMETER 

0072 

JkJk 


IS IGNORED. THE 

EXEC CALL PLACES THE IBUFF ADDRESS IN 

0073 

Jlok 


SLOT 7 1 

OF THE EQUIPMENT TABLE. AND THIS DRIVER REFERS 

0074 

JkJk 


TO IBUFF USING EQT7. 

0075 

JkJk 





.0076 

JitJk 

ILEN 

: INTEGER 

LENGTH, 

IN WORDS, OF IBUFF. 

0077 

JkJk 


THIS LENGTH IS STORED BY THE EXEC CALL IN UORD 8 OF 

0078 

JkJk 


THE EQUIPMENT TABLE, EQT8 IN THIS DRIVER. 

0079 

JkJk 





0080 

JkJl; 

ICMND 

i: INTEGER 

CODE THAT IS USED TO GIVE CODED INFORMATION TO 

0081 

JkJk 


THE COMTAL. IN 

THE COMTAL MANUAL, THE BITS DESCRIBED IN 

0092 

JkJk 


THE RELEVANT 5.2 

SUBSECTION ARE CODED INTO ICMND, 

0083 

j|;jk 


THIS PARAMETER I 

S SOMETIMES IGNORED. 

0084 

Jlok 


ICMND IS STORED 

IN WORD 9 OF THE EQUIPMENT TABLE, 

0085 

JkJk 


EQT9 IN 

THIS DRIVER. 

0086 

JkJk 





0087 

JkJkJkJkJkJk 





0088 

jkJkJkJkJkJk 

NOTES : 




0089 

JkJk 

1. 

USES STANDARD INTERUPTS FOR TRANSFER OF DEVICE 

0090 

JkJk 


COMMANDS 1 

AND TERMINATION SEQUENCES. 



0091 

0092 

0093 

0094 

0095 
0098 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 
016? 
0106 

0109 

0110 
0111 
6112 

0113 

0114 

0115 

0116 
011 ? 
0118 

0119 

0120 
6121 
0122 

0123 

0124 

0125 

0126 
012 ? 
0123 
0129 
0138 

0131 

0132 

0133 

0134 

0135 

0136 


Xot: 

»ok 

>toK 

JloK 

>lt>k 

}«>k 

Xok 

>k>t! 

>iok 

* 

)k 


2. USES D.M.ft. FOR TRANSFER OF DATA BLOCKS IF NECESSARY 

3. THE TUO INTERFACE CARDS FOR THE COMTAL MUST BE 
MOUNTED IN CONSECUTIVE I.O SLOTS. 

4. THE COMMAND CARD MUST BE THE LOU I/O SLOT OR 

SELECT CODE. 

5. MANY BUGS UERE FOUND IN THE ORIGINAL AND 
THESE HAVE BEEN REMOVED AS UELL AS MAKING THE 
CODE A MORE EFFICIENT ROUTINE. R.U.B. 

ENT I.41*C.41 


JkXoKMoiokXololololok* 


INITIATION SECTION FOLLOUS 


>K 


1.41 NOP 

JSB SETIO 
CLB 

LDA EQT6, I 
AND *B3?00 
STA FUNC 
LDA EQT6, I 
AND »B3 
CPA -B2 
JMP RORUI 
LDB BIT15 
CPA -B1 
JMP RORUI 
>K ANYTHING ELSE 
LDA FUNC 
S2A 

JMP REJCT 
CLRl CLC DAT.C 
CLR2 CLC CST.C 
LDA «=B4 
JMP 1.41. I 

»< 

>K 

REJCT LDA -»B2 

JMP 1.41,1 

>K 


GET CONTROL SUBFUNCTION 

SAVE FUNCTION MEMORY 
GET CONTROL UORD OF REQUEST 
ISOLATE THE FUNCTION 
CHECK FOR URITE ( SKIP IF NOT URITE ) 

IF REQUEST FUNCTION - 2 (URITE) 

SET READ FLAG FOR ACTUAL BIT USED 
CHECK FOR READ (SKIP IF NOT READ ) 

IF REQUEST FUNCTION - 1 (READ) 

IS CONSIDERED A CONTROL REQUEST 
GET CONTROL UORD 

FOR NOU ONLY CONTROL REQUEST "0" fS VALID 


SET A=2. FOR ILLEGAL CONTROL REQUEST 
RETURN TO IOC 
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0137 

6138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 
014? 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 
6157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 


5)ok>k>Mot< SET 10 ROUTINE FOR INITIftTION SECTION FOLLOWS 


SETIO NOP 


STA 

B 

I OR 

CLC 

STA 

CLR2 

STA 

RORWI 

INA 


STft 

CLRl 

STA 

RORW 

LDft 

Lift 

I OR 

B 

STA 

R0RU2 

LDft 

STC 

lOR 

B 

STA 

I01L3 

LDft 

OTA 

I OR 

B 

STA 

I01L2 

LDft 

0TB 


SAVE SELECT CODE FROM ft (STftTUS CftRD SC) 
OR IN "CLC" INSTRUCTION 


INCREMENT TO HIGHER SELECT CODE (DftTft CftRD SC) 

"Lift INSTRUCTION" TO ft 
OR IN SELECT CODE 

"STC INSTRUCTION" TO ft 

STORE INSTRUCTION ftT LftBEL "I01L3" 


INB INCREMENT SELECT CODE IN 8 

lOR B 
STft lOlLl 

JMP SETIO, I RETURN 


^toMotoK^K* READ OR WRITE REQUEST >K*>Mok5k>k)MoMotc>(c>i<)toloK>i!>k>i< 


>k CHECK FOR COMTftL IN REMOTE 


>K 


RORWI STB RFLAG 
RORW CLC DAT,C 
RORWI CLC CST,C 
R0RW2 Lift CST 
AND NBSY 
CPft NBSY 
RSS 

JMP R0RW2 


CLEAR CONTROL ftND FLAG 
GET STftTUS 

FIX FOR COMTftL VO/20 R.W.B. 

FIX FOR COMTftL VO/20 R.W.B. 

SKIP IF YES 

FIX FOR COMTftL VO 20 R.W.B. 


»<>tol;>t:!4!!(ot;>KX<»!>tof:j|; DETERMINE WHICH SUBFUNCTION 






xc,--* NOTE THAI THE DISPLAY COMMAND ftND TRACK BALL REQUESTS ARE 
PERFORMED USING DEVICE INTERUPTS. 

* HOWEVER IMAGE LINE. FUNCTION. AND PSEUDO-COLOR TRANSFERS ARE 

PERFORMED USING DEVICE INTERUPTS TO TRANSMIT THE COMMAND AND 

* ENDING SEQUENCE. BUT WITH A DMA TRANSFER IN BETWEEN. 

LDft FUNC GET CONTROL WORD 



0163 

* 



0184 


CPA DSPLV 

DISPLAY COMMAND REDUESt? 

0185 


JMP DSPLY 


018S 

5k 



018? 


CPA ILTRV 

IMAGE LINE TRANSFER? 

0188 


JMP CHDCP 

• 

0188 

Hi 



0190 


cPa FMTRV 

FUNCTION MEMORY TRANSFER? 

0191 


JMP CHDCP 

* 

0192 

» 



0193 


CPA PCMTV 

PSEUDO-COLOR TRANSFER 

0194 


JMP CHDCP 


0195 

Hi 



0196 


CPA TBALV 

TRACK BALL REQUEST 

019? 


JMP TBALL 


0198 

Hi 



0199 


CPA SUPTV 

CHECK FOR TYPE 3 DMA SUPPORT CONTROL 

0200 
PlPfl 1 

Hi 

JMP CHDCP 


Lf^V 1 
0202 

CPA LINKV 

CHECK FOR LINK SUBFUNCTlON 

0203 


JMP LINK 


0204 

Hi 




0205 »<????????????? ILLEGAL SUBFUNCTION HERE ??t????????? 

020S >K 
020? >k 

0208 PROCESS DISPLAY COMMAND REQUEST *>K>k5H>k)WKTk>ioMok>k* 


0209 

>k 




0216 

DSPLY 

LDA =D1 

SET state control VARIABLE 


0211 


STA EQT12, 

I UHAT TO DO 


0212 


LDB E0T9. I 

GET OPTION 


0213 


CLA 

CLEAR OUT A 


.0214 


JMP 101 

GO TO start 10 ROUTINE 


0215 





0216 


kX:HcX»|!>l«IOcXok 

PROCESS Track ball request >K>k5k5k*>k>k>k>jok5i6ioiotok 


021? 

0218 

>K 




0219 





0223 

TBALL 

LDB RFLAG 



0221 


CPB BIT15 

READ FLAG SET? C SKIP IF IJRITE) 


6222 


JMP RTBAL 

JUMP IF SET FOR READ 


6223 

Hi 




0224 

XcXok>l< 

TRANSMIT WRITE COMMAND AND X-POSITION. 

0 

0225 





0226 

UTBAL 

LDA *=D2 

SET STATE CONTROL VARIABLE. 


0227 


STA E0T12, 

I 


0228 


LDB EQT?,I 
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6229 


LDA 

B, I 

CONTENTS OF BUFFER TO A 

0230 


AND 

-B0777 

MASK FOR BITS 0-8 

0231 


STA 

B 


0232 


LDA 

•=B3 

TRANSFER CODE OF 3 TO A 

0233 


JMP 

101 

GO START 1/0 

0234 

>k 




0235 

>kHoioioio(oio)oio|<>iok>loi<* READ TRACK BALL >Moi<>K>K>K>lotoMoMt>loK)k)kJKJK)K>Wo^ 

0236 

»oMoM< 

ALSO READS 1 

LITTLE RED SUITCHES ON TRACK BALL APPARATUS. 

023? 




- 

0238 

RTBAL 

LDA 

=D5 

SET FLAG TO TELL CONT. SECTION UHAT TO DO 

0239 


STA 

EQT12,I 


0240 


LDA 

«B3 

TRANSFER CODE-3 

0241 


JMP 

101 

GO TO START 1/0 

0242 





0243 

* 




0244 

✓TN/r» 

CHECK FOR DCPC CHANNEL ASSIGNED >kxoiok>KJK>loK>iolok>»ot< 

0245 

>k 




0246 

CHDCP 

DLD 

INTBA,I 

ACCESS DCPC ASSIGNMENT WORDS FROM THE 

0247 

»< 



THE INTERUPT TABLE WHOSE ADDRESS IS IN THE BASE PAGE 

0248 

>i< 



COMMUNICATIONS AREA. 

0249 


CPA 

EQTl 

IS CHANNEL 1 ASSIGNED TO THIS DRIVER 

0250 


JMP 

CHI 

IF YES 

0251 


CPB 

EQTl 

IS CHANNEL 2 ASSIGNED TO THIS DRIVER 

0252 


JMP 

CH2 

IF YES 

0253 


LDA 

«B5 

SET RETURN CODE TO 5 

0254 


JMP 

1.41,1 

RETURN TO IOC REQUESTING A DCPC CHANNEL 

0255 

CHI 

LDB 

=B2 

LOW SELECT CODE OF CHANNEL 1 TO B 

0256 


RSS 


SKIP 

025? 

CH2 

LDB 

-B3 

LOW SELECT CODE OF CHANNEL 2 TO B 

0258 


STB 

EQTl 1,1 

STORE IN EQUIPMENT TABLE FOR USE BY COMPLETION SECTION 

0259 

»< 




,0260 

>lok>»oic>iok UHICH OF THE 

DMS SUBFUNCTIONS HolokXotoMotolok 

0261 

>K 




0262 

CHFTH 

LDA 

FUHC 

CONTROL WORD TO A 

0263 


CPA 

FMTRV 


6264 


JMP 

FMTR 

FUNCTION MEMORY TRANSFER 

0265 


CPA 

PCMTV 


6265 


JMP 

PCMTR 

PSEUDO COLOR TRANSFER 

625? 


CPA 

SLIPTV 


6268 


JMP 

SUPPT 

SUPPORT TRANSFER 

0269 

>K 




0270 

sl/ 

[MAGE LINE 

TRANSFER ROUTINE >KXoio(cH»totoiok>k>k>kj|t5k>k>K5l<5toi'.>i< 

0271 

X< 




0272 

ILTR 

LDA 

=D8 

SET STATE CONTROL VARIABLE 

0273 


STA 

EQT12,I 


0274 


LDA 

EQT9, I 

GET INSTRUCTIONS FOR LINE TRANSFER 



0275 


I OR RFLfiG 

SET READ OR URITE AS PER READ FLAG 

0276 

ILTR2 

STA B 


0277 


LDA -B1 

SET TRANSFER CODE TO 1 

0278 


STA TRAN 

SAVE TRANSFER CODE 

0279 


JMP 101 

GO START I/O 

0288 

«»ictoK>lok>MotoloK>M?>Mo|oM«MPMo|oMok)tok)K>loKotot^ 

0281 

FUNCTION MEMORY 

OR PSUEDO COLOR TRANSFER 

0282 

>K)K>k>k)K*)loloK>K)K>k>k)MoloM<>k*>toK5MoM<>K>MoK)toKHo|oK)K>K>K>k>^^ 

0283 

PCMTR 

CLA 

CLEAR A FOR PSUEDO COLOR TRANSFER 

8284 


JMP PCMT2 

CONTINUE TRANSFER 

0285 

>k 



0286 

FMTR 

LDA BIT14 

SET FUNCTION MEMORY BIT 

0287 

»< 



0288 

PCMT2 

LDB -D8 

SET STATE VARIABLE 

0289 


STB EQT12, I 

SAVE STATE FOR CONTINUATION 

0290 


lOR EQT9,I 

MERGE IN lOPTNl bJORD 

0291 


lOR BIT13 

MERGE IN 8000S COMPATIBILITY BIT 

0292 


JOR RFLAG 

MERGE IN READ OR WRITE BIT 

0293 

FMTR2 

STA B 

PLACE CONTROL WORD IN B 

0294 


LDA -B2 

SET TRANSFER CODE 

0295 


STA TRAN 

SAVE TRANSFER CODE FOR LATER 

0296 


JMP 101 


0297 

>K>k>K>k>K5Mok>lo|<)K>K>KTk}K)K3MoMoK)toK5MOK)MOIolOloMok>H>k>k>K>K>^^ 

0298 

XotiXolpK 

SUPPORT FUNCTION BLOCK TRANSFER ( TR CODE •= 3 ) 

0299 

>h>K>k*>K>MoMo|oK>lok>MoK*>K>Mok)Motol<Mok3KJM<>M<**Jk>K>K)t<>K>H5WoK5K5K*>K>k*)k>k*>k»K^ 

0306 

SUPPT 

LDA =D8 

SET DMA TRANSFER RETURN STATUS FOR CONTINUATION SECTION 

0301 


STA EQT12.I 

AND SAVE IT 

0302 


LDA EQT9. I 

GET OPTIONS 

0303 


I OR RFLAG 

SET READ OR URITE BIT 

0304 


STA B 

SAVE IN B 

6305 


LDA »B3 

SET TRANSFER CODE 

6306 


STA TRAN 

SAVE TRANSFER CODE 

0307 


JMP 101 

AND GO DO IT 

0368 

>K 



0309 


SPECIAL PROCESSING FOR TR 1 MODE 6 CALL 

0310 




0311 

LINK 

LDA “Dl 

SET NO BLOCK TRANSFER 

0312 


STA EQT12-I 

SAVE THIS 

6313 


LDB EQTS, I 

GET COMMAND 0PTI3N 

0314 


LDA =B1 

SET TRANSFER CODE 

0315 


JMP 101 

GO DO IT 

0316 

* 

• 


0317 

* 



0318 

* 



0319 

>tolp|oloK 

THIS ROUTINE STARTS THE DATA TRANSFER OF A COMMAND JMo)otoMok0 

0320 

'M 

TO THE 

COMTAL 
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0321 

>k 




0322 





0323 

101 

NOP 



0324 

lOlLl 

0TB 

DAT 

PUT TRANSFER COMMAND ON DATA LINES 

0325 


lOR 

GOB IT 


0326 

101L2 

OTA 

CST 

PUT TRANSFER CODE ON COMMAND LINES 

032? 

I01L3 

STC 

CST.C 

SEND THE GO PULSE . START TRANSFER 

0328 


CLA 


NOW RETURN TO IOC WITH 

0329 


JMP 

1. 41, I 

OPERATION INITIATED (A-=0«OK) 

0330 




WHEN THE COMMAND IS RECEIVED BY THE COMTAL- AN 

0331 




INTERUPT FROM THE COMTAL WILL CALL CIC AND THIS 

0332 

* 



DRIVERS COMPLETION AND CONT. SECTION WILLL EXEC. 

0333 





0334 

* 




0335 





0336 

Jlofololotokxok* 

COMPLETION SECTION FOLLOWS 

033? 

••1^ 




0338 

* 




0339 

* 




0340 

C.41 

NOP 



0341 


JSB 

CSIO 


0342 


LDA 

EQT1,I 

CHECK FOR SPURIOUS INTERUPT 

0343 


AND 

“B????? 

GET I/O REQUEST LIST POINTER 

0344 


S2A 


IS A REQUEST IN PROGRESS 

0345 


JMP 

C0MP2 

IF YES GO PROCESS REQUEST 

0346 


STA 

EQT15, I 

NO, ITS SPURIOUS SO ZERO TIME-OUT CLOCK TO PREVENT 

034? 

SPUR2 

IS2 

C.41 

ADJUST RETURN TO P+2 (CONT.) 

0348 


JMP 

C.41. 1 

MAKE CONTINUATION RETURN TO CIC 

0349 

>K 




0350 

>K 




0351 

C0MP2 

NOP 



0352 


LDA 

CTABA 

STATE CONTROL TABLE BASE ADDRESS TO A 

0353 


ADA 

EQT12. I 

ADD THE STATE CONTROL VARIABLE 

0354 


JMP 

A, I 

JUMP TO ADDRESS JUMP TABLE 

0355 





6356 

DIJ 

SPLAY COMMAND 

COMPLETION. 

035? 

X< 




6358 

SCAl 

LDA 

IDSC 

INTERUPTING DEVICE SELECT CODE TO A 

0359 


CPA 

SSC 

IS INTERUPTING SELECT CODE THE STATUS CARD? 

0360 


RSS 


SKIP IF YES? 

0361 


JMP 

SPUR2 

JUMP TO SPURIOUS INTERUPT IF NOT 

0562 


LDB 

•=B1 

SET B FOR TRAMS. LOG 

0363 


JMP 

CENDl 


0364 

>k 





0365 >k* TRACK BALL 1 

0366 >t< 
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036? SCP12 
. 0366 
■ 0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 
6399 
0490 
0401 
6402 

0403 

0404 

0405 
6406 

0407 

0408 

0409 

0410 

0411 GETl 

0412 ^ 


LDA 

IDSC 

CPA 

SSC 

RSS 


JMP 

SPUR2 

LDA 

-D3 

STA 

E0T12,I 

LDB 

EQT7, I 

INB 


LDA 

B, I 

AND 

-B0777 

I OR 

BIT14 

STA 

B 

LDA 

-B3 

I OR 

GOB IT 

JMP 

CIOl 


1-0A I DSC 
CPA SSC 
RSS 

JNP SPUR2 
LDA =1)4 
STA E0T12>I 
JMP TBDUN 


LDA I DSC 
CPA SSC 
RSS 

JMP SPLIR2 
LDA =D6 
STA EQT12, I 
JMP Cl 02 


LDA IDSC 
CPA DSC 
RSS 

JMP SPUR2 
LDA -D7 
STA EQT12,I 
LIA DAT 
STA EQT13.I 


5k 

TRACK BALL 2 

5k 

SCA3 


5k 

TRACK BALL 3 

5k 

SCA5 


>k>k TRACK BALL 4 
SCAS 


INTERUPTING DEVICE SELECT CODE TO A 
IS INTERUPTING SELECT CODE THE STATUS CARD’ 
SKIP IF YES? 

JUMP TO SPURIOUS INTERUPT RETURN IF NOT® 

SET STATE CONTROL VAR. 

ADDRESS OF BUFFER TO B 
INCREMENT B (BUFFER ADDRESS) 

CONTENTS OF BUFFER+1 TO A 

SIGNIFYS Y-POSITION 

TRANSFER CODE OF 3 


INTERUPTING DEVICE SELECT CODE TO A 
IS INTERUPTING SELECT CODE THE STATUS CARD’ 
SKIP IF YES? 

JUMP TO SPURIOUS INTERUPT IF NOT SET 
SET STATE CONTROL VARIABLE 


INTERUPTING DEVICE SELECT CODE TO A 
IS INTERUPTING SELECT CODE THE STATUS CARD? 
SKIP IF YES? 

JUMP TO SPURIOUS INTERUPT IF NOT 

SET STATE CONTROL VARIABLE 
JUMP TO START A READ 


INTERUPTING DEVICE SELECT CODE TO A 
IS INTERUPTING SELECT CODE THE DSCA CARD’ 

SKIP IF YES? 

JUMP TO SPURIOUS INTERUPT IF NOT 
SET STATE CONTROL VARIABLE 

DATA FROM DATA LINES TO A (X-POSITION 8.SUITCH 1) 
SAVE FOR SWITCH 1 



0413 


AND -B0??? 




0414 


LDB EOT?, I 

ADDRESS OF BUFFER TO B 



0415 


STA B.I 

STORE X-POSITION IN BUFFER 



0416 


JMP Cl 02 




041? 

>x 





0418 

>toK TRACKBALL 5 




0419 

>k 





0420 

SCA? 

LDA I DSC 

INTERUPTING DEVICE SELECT CODE 

TO 

A 

0421 


CPA DSC 

IS INTERUPTING SELECT CODE THE 

DSCA CARD? 

0422 


RSS 

SKIP IF YES? 



0423 


JMP SPUR2 

JUMP TO SPURIOUS INTERUPT IF NOT 


0424 


LDA -D4 




0425 


STA EQT12,I 

SET STATE CONTROL VARIABLE 



0426 

GET2 

LIA DAT 

DATA FROM DATA LINES TO A 



042? 


LDB EOT?, I 

GET BUFFER ADDRESS 



0428 


IHB 

POINT TO UORD TUO 



0429 


STA B,I 

STORE Y-POSITION IN BUFFER+1 



0430 


JMP TBDUN 




0431 

>K 





0432 

TBDUN 

LDA “BS 




0433 


lOR CLBIT 

THIS ADDED P0ER RUB 6/15/81 



0434 


lOR ENBIT 




0435 


JMP CIOS 




0436 

>i< 





043? 

TRACK BALL TRANSMIT END 



0438 

>K 





0439 

SCA4 

LDA IDSC 

INTERUPTING DEVICE SELECT CODE 

TO 

A 

0440 


CPA SSC 

IS INTERUPTING SELECT CODE THE 

STATUS CARD? 

0441 


RSS 

SKIP IF YES? 



0442 


JMP SPUR2 

JUMP TO SPURIOUS INTERUPT IF NOT 


6443 


LDB -B2 

SET TRANS. LOG FOR URITE 



.0444 


LDA EQT6,I 

GET CONTROL UORD 



0445 


AND -=B3 

ISOLATE FUNCTION CODE 



0446 


CPA =B1 

IS IT A READ? 



044? 


LDB =B4 

SET TRANS. LOG TO 4 FOR READ 



0443 


JMP CENDl 




0449 

w. 





0450 

;+' 





0451 

'A' 





0452 

CICl 

NOP 




0453 


0TB DAT 




0454 

CIOS 

OTA . CST 




0455 


STC CST,C 




0456 


1S2 C.41 




045? 


JMP C.41, I 




0458 








0459 

0460 

0461 

0462 

0463 

0464 

0465 

0466 

0467 

0468 

0469 

0470 
0472 

0472 

0473 

0474 

0475 

0476 

0477 

0478 

0479 

0480 

0481 

0482 

0483 

0484 

0485 

0486 

0487 

0488 
048S 
0490 
(3491 

0492 

0493 

0494 

0495 

0496 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 


* 

Cl 02 NOP 

CLC DflT,C 
STC DAT,C 
IS2 C.41 
JMP C.41, I 

>K 

Hoi! DMA TRANSFER 1 

>i< 

SCA8 LDA I DSC 
CPA SSC 
RSS 

JMP SPUR2 
LDA =D9 
STA EQT12, I 


INTERUPTING DEVICE SELECT CODE TO A 
IS INTERUPTING SELECT CODE THE STATUS CARD? 
SKIP IF YES? 

JUMP TO SPURIOUS INTERUPT IF NOT 
SET STATE CONTROL VARIABLE 


>!< 

5KXo(otoio(ol; 

>l< 

* 


THIS ROUTINE MODIFIES THE DCPC INITIALIZATION INSTRUCTIONS 
TO SPECIFY THE SELECT CODES OF THE ASSIGNED DCPC 


STDMA LDB EQT11,I 
LDA OTA 
lOR B 
STA D3 
STA D5 
ADA =B4 
STA D1 

'M 

LDA CLC 
lOR B 
STA D2 
LDA STC 
lOR B 
STA D4 
ADA »B4 
STA D6 
STA D7 
LDA CLC 
lOR DSC 
STA D6+1 
LDA STF 
I OR DSC 
STA D6+2 
LDA STC 


GET LOU SELECT CODE FROM EOT 
"OTA INSTRUCTION” TO A 
OR IN THE LOUER SELECT CODE 
STORE AT LABEL D3 
STORE AT LABEL D5 

ADD 4 TO INSTR. TO CHANGE TO HIGHER SELECT CODE 


"CLC INSTR." TO A 
OR IN LOUER SELECT CODE 
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0505 


I OR DSC 


0506 


STA D7+1 


0507 

* 



0508 

* 



0509 

>K 



0510 

^MototoioHMoK THIS ROUTINE INITIATES THE DCPC DATA TRANSFERS >MoMotoioio)oioioic 

0511 

>IOlO)< 

THE INSTRUCTIONS BELOU UITH D LABELS ARE MODIFIED BY THE 

0512 


THE ROUTINE "SETIO" TO SPECIFY THE CORRECT SELECT CODES 

0513 


FOR THE 

DCPC CHANNEL ASSIGNED BY THE SYSTEM 

0514 




0515 

GOIO 

LDA E0T4, I 


0516 


AND *=B77 

MASK FOR COMMAND SELECT CODE 

0517 


INA 

INCREMENT FOR DATA SELECT CODE 

0518 


lOR BIT15 

TURN ON HANDSHAKE BIT (STC) 

0519 

D1 

OTA 6B 

PUT CONTROL UORD 1 TO DCPC CHANNEL (SELECT 6 OR 7) 

0520 

D2 

CLC 2B 

PREPARE MEM. ADDR. REGISTER FOR CU2 (SELECT CODE 2 OR 3) 

0521 


LDA EQT6,I 

GET CONTROL UORD 

0522 


AND “B3 

MASK FOR FUNCTION 

0523 


STA B 

STORE FUNCTION IN B 

0524 


LDA EQT7,I 

ADDRESS OF BUFFER TO A 

0525 


CPB “Bl 

IS FUNCTION A READ? 

0526 


lOR BIT15 

TURN ON "IN" BIT FOR A READ, IF YES 

6527 

D3 

OTA 2B 

CONTROL UORD 2 TO DCPC CHANNEL (SC 2 OR 3) 

0528 

D4 

STC 2B 

PREPARE MEM. ADDR. REGISTER FOR CU3 (SC 2 OR 3) 

0529 


LDA EQT8.I 

GET LENGTH OF TRANSFER 

0530 


CMA, INA 

MAKE TUO'S COMPLEMENT 

6531 

D5 

OTA 2B 

CONTROL UORD 3 TO DCPC CHANNEL (SELECT CODE 2 OR 3) 

0532 


CPB =B1 

IS IT A READ? , 

0533 


JMP D7 

JUMP IF YESD 

0534 

D6 

STC 6B 

ACTIVATE DCPC CHANNEL (SELECT CODE 6 OR 7) 

0535 


CLC DAT 

CLEAR DEVICE 

.0536 


STF DAT 

ACTIVATE DEVICE? 

6537 


JMP GOEND 


6538 

D7 

STC 6B 

ACTIVATE DCPC CHANNEL (SELECT CODE 6 OR 7) 

6539 


STC DAT>C 

ACTIVATE DEVICE 

0540 

GOEND 

1 IS2 C.41 

NOU RETURN TO CIC UITH 

0541 


JMP C.41, I 

CONTINUATION 

0542 

* 



0543 

>x>K DMA TRANSFER 2 


0544 

»< 



0545 

SCA9 

LDA EQTll.I 

GET LOU SELECT CODE OF DCPC CHANNEL 

0546 


ADA. -=B4 

ADD 4 TO CONVERT LOU DCPC SELECT CODE TO HIGH S.C. 

0547 

CHKDF CPA I DSC 

IS INTERUPTING SELECT CODE THAT OF THE 

0548 



ASSIGNED DCPC CHANNEL? 

0549 


RSS 

SKIP IF YES 

0550 


JMP SPUR2 

JUMP TO SPURIOUS INTERUPT IF NOT 


211 



0551 

LDA “D10 

SET CONTROL STATE VARIABLE 

0552 

STA EQT12, I 


0553 

)KHOloK)k)M<>K>loK>K>M<>lok>|oK)K>k>loK)K)M<>K>lo^ 

0554 

>k>KX<>k>k>k>k}k>»!>k>K>l<>k>lok>k>K*)K>l<>K)Mok>K>K*>K)K>K>k>tok>K^ 

0555 

>K 


0556 

>k 


0557 

LDA TRAN 


0559 

lOR CLBIT 

* SET CLEAR BIT 

0559 

lOR ENBIT 

* ADD END BIT 

0560 

JhP CI03 

* GO TO IT 

0561 

>K 


0562 

)K>K DMA TRANSFER 3 



0563 >!< 

0564 >K>K?kJM<>k>loK**>K>lok)Mok)k>K)loK^^ 


0565 

SCA10 

LDA I DSC 

INTERUPTING DEVICE SELECT CODE TO A 

0566 


CPA SSC 

IS INTERUPTING SELECT CODE THE STATUS CARD? 

0567 


RSS 

SKIP IF YES? 

056B 


JMP SPUR2 

IF NOT GO TO SPURIOUS INTERUPT 

0569 


uDB EOT 11, I 

RETRIEVE LOUER SELECT CODE OF ASSIGNED DCPC CHANNEL 

0570 


LDA CLC 

"CLC INSTRUCTION" TO A 

0571 


lOR B 

OR IN THE CHANNELS LOUER SELECT CODE 

0572 


STA CDl 

STORE INSTRUCTION AT LABEL CDl 

0573 


ADA =B4 

ADD 4 TO INSTRUCTION IN A TO ADJUST TO HIGHER SELECT 

0574 


STA CD2 

STORE INSTRUCTION AT LABEL CD2 

0575 




0576 

CDl 

CLC 2B,C 

CLEAR LOU DCPC SELECT CODE 

0577 

CD2 

CLC 6B,C 

CLEAR HIGH DCPC SELECT CODE 

0578 


LDB EQT8,I 

LENGTH OF BUFFER TO B (TRANSMISSION LOG) 

0579 

CENDl 

LIA CST 

GET STATUS UORD FROM COMTAL 

0580 


AND -B37 

STRIP OFF UNUSED BITS 

0531 


STA SAVEl 

SAVE IN SAVEl TEMPORARILY 

,0582 


LDA EQT5,I 

REMOVE PREVIOUS STATUS 

0533 


AND ■=6177400 

BITS IN EOT UORD 5 

0584 


lOR SAVEl 

OR IN NEU BITS 

0535 


STA EQT5,I 

AND RESET INTO EOT UORD 5 . 

0536 




0587 

CEND2 

1 CLC DAT,C 

CLEAR DEVICE DATA SELECT CODE 

0588 


CLC CST,C 

CLEAR DEVICE COMMAND SELECT CODE 

0539 

:-K 



0590 

;l< 



0591 


CLA 

SET A - 0 » OK RETURN CODE 

0592 


lOR -“B 100000 

SET BIT TO RETURN DCPC CHANNEL 

0593 


JMP C.41,I 

MAKE COMPLETION RETURN TO CIC 

0594 

>K 



0595 

>K 



0596 

xotoiotoH SETIO SUBROUTINE FOR COMPLETION/CONTINUATION SECTION »ioioio*oiotc 
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059? >k 

0598 CSIO 

0599 

0600 
0601 
0602 
6633 

0604 

0605 
6605 

0607 

0608 
0609 
6610 
6611 
0612 

6613 

6614 

6615 
0616 
061? 

0618 

0619 

0620 
6621 
0622 

0623 

0624 

0625 

0626 
062? 

■0628 
0529 
0630 * 

663 1 * 

0632 *■ 

0635 * 

0634 * 

0635 >K 

6636 xoMoioi!* 

663? >K 
0638 RFLAG 
6639 FUNC 

0640 TRAN 

0641 SAVEl 

0642 SAVE2 


NOP 

STA IDSC 
LDA EQT4, I 
AND >=8?? 
STA SSC 
INA 

STA DSC 
LDA OTA 
I OR SSC 
STA CI03 
LDA STC 
I OR SSC 
STA C 103+1 
INA 

STA Cl 02+2 
LDA CLC 
lOR SSC 
STA CEND2+1 
INA 

STA CEND2 
STA C 102+1 
LDA LIA 
I OR SSC 
STA CENDl 
INA 

STA GETl 
STA GET2 
LDA OTB 
lOR DSC 
STA CIOl+1 
JMP CSIO, I 


CONSTANTS 

1 
1 
1 
1 
1 


BSS .1 
BSS 1 
BSS 
BSS 
BSS 


SAVE SELECT CODE OF INTERRUPTING DEVICE 

MASK FOR STATUS SELECT CODE 

SAVE STATUS SELECT CODE AT SSC 

ADD 1 TO A FOR DATA SELECT CODE 

SAVE DSCA SELECT CODE AT DSC 

"OTA INSTRUCTION" TO A 

OR IN STATUS SELECT CODE 

STORE INSTRUCTION IN A AT LABEL CI03 


ADD 1 TO INSTRUCTION IN A TO CHANGE 
STATUS SELECT CODE TO DATA SELECT CODE 


RETURN 


AND STORAGE AREA 5k>k>MoK>k>lok>k>loi^M<)k5^:>tolok^ 
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0643 

0644 

0645 
6646 

0647 

0648 

0649 

0650 

0651 

0652 

0653 

0654 

0655 

0656 
065? 

0658 

0659 

0660 
0661 
6662 
0663 
6664 

0665 

0666 

0667 

0668 
0669 
0676 

0671 

0672 

0673 

0674 

0675 

0676 

0677 

0678 

0679 

0680 
'0681 
0682 

0683 

0684 

0685 

0686 

0687 

0688 


CWl 

BSS 

1 

CW2 

BSS 

1 

CU3 

BSS 

1 

TMASK 

BSS 

1 

IDSC 

BSS 

1 

SSC 

BSS 

1 

DSC 

BSS 

1 

BIT13 

OCT 

20000 

BIT14 

OCT 

40000 

BIT15 

OCT 

106000 

RMOTE 

OCT 

2 

GOB IT 

OCT 

4 

ENBIT 

OCT 

10 

NBSY 

OCT 

10 

CLBIT 

OCT 

20 

TOUT 

DEC 

-30000 

ERNUM 

DEC 

3 


x;>i: 

m;* THE FOLLOWING VALUES (SUFFIX V) DETERMINE WHICH DRIVER 

SUBFUNCTIONS ARE INVOKED- PARAMETER IFUNC IN SAMPLE CALL ABOVE, 

»«« 


DSPLV 

OCT 

0 

ILTRV 

OCT 

100 

FMTRV 

OCT 

200 

PCMTV 

OCT 

300 

TBALV 

OCT 

400 

SUPTV 

OCT 

500 

LINKV 

OCT 

600 

XOK 



CST 

EOU 

24 

DAT 

EQU 

25 

A 

EQU 

0 

B 

EQU 

1 

OTA 

OTA 

0 

CLC 

CLC 

0,C 

STC 

STC 

0,C 

LIA 

LIA 

0 

0TB 

0TB 

0 

SFS 

SFS 

0 

STF 

STF 

0 


USED ONLY FOR DOCUMENTATION, ACTUAL INSTRUCTION IS 
SET UP BY A SETIO ROUTINE. 


>!«!<>ioioi:h,toBASE PAGE COMMUNICATIONS AREA DEFINITIONS 


EQU 1650B 

>k 


xok 

THE FOLLOWING CONSTANTS ARE USED TO READ THE EQUIPMENT TABLE 
*;i< associated WITH THIS DRIVER. SEE THE HP- 1000 QUICK REFERENCE 
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0689 xoK MANUAL FOR DIAGRAMS AND TABLES ON UHICH THESE CONSTANTS ARE BASED. 


0690 

Jlok 




0691 

INTBA 

EOU 

.+4 


0692 

EQTl 

EQU 

.+8 


0693 

EQT2 

EQU 

.+9 


0694 

EQT3 

EQU 

.+10 


0685 

EQT4 

EQU 

. + 11 


0696 

EQT5 

EOU 

. + 12 


0697 

EQT6 

EQU 

. + 13 


0698 

EOT? 

EQU 

.+14 


0699 

EQT8 

EQU 

. + 15 


0700 

EQT9 

EQU 

. +16 


070! 

EQT10 

EQU 

. + 17 


0702 

EQTll 

EQU 

.+18 


0703 

EQT12 

EQU 

. +8 1 


0704 

EQT13 

EQU 

.+82 


0705 

EQT14 

EQU 

.+83 


0706 

E0T15 

EQU 

.+84 


0707 

>!< 




0768 

>f< 




0709 

* 




0710 

JtotolololoK 

STATE 

CONTROL ADDRESS TABLE siotoK)kXok)loio*oKXo|oioi^^ 

0711 

CTABA 

DEF 

CTAB 


0712 

CTAB 

NOP 



0713 


JMP 

SCAl 

DISPLAY COMMAND COMPLETION 

0714 


JMP 

SCA2 

TRACK BALL 1 

0715 


JMP 

SCA3 

TRACK BALL 2 

0716 


JMP 

SCA4 

TRACK BALL TRANSMIT END 

0717 


JMP 

SCA5 

TRACK BALL 3 

0718 


JMP 

SCA6 

TRACK BALL 4 

0719 


JMP 

SCA7 

TRACK BALL 5 

0720 


JMP 

SCAB 

DMA TRANSFER 1 

0721 


JMP 

SCA9 

DMA TRANSFER 2 

0722 


JMP 

SCA10 

DMA TRANSFER 3 

0723 

XC 

BSS 

10 


0724 


END 
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